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IDENTIFICATION 


PRODUCT CODE: AC-F633B-MC 

PRODUCT NAME:  CKFPBBO FP11F FLTG PNT PRT B 
DATE CREATED. APRIL, 1981 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR : ANTHONY VEZZA, DAN MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO _ CHANGE 

D NOT BE CONSTUED AS A COMMITMENT BY 
DIGITAL. EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO_ THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT <C) 1979, 1981 BY DIGITAL EQUIPMENT CORPORATION 
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48 

49 HISTORY 
Pe ae ye 

S52 NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTICS PART ‘A’ WERE 

| ef FOUND TO BE NEEDE TO ADAPT IT FOR USE ON THE 11/44. 
55 THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
33 TO MAKE THE ‘B' VERSION COVER THE 11/44: 
58 1. TEST 22 = PROCESSOR LOOKS TO SEE IF APT IS CON- 
39 TROLLING THE TEST, AND IF IT IS, CHECKS TO SEE 
60 IF THE USER HAS SELECTED THIS TEST BY CHECKING 
61 BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 


62 CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 
63 SELECT THE TEST. 


65 THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
66 TO MAKE THE °C’ VERSION COVER THE 11/44: 


68 1. TEST 76 = CHECKS THAT FP PROCESSOR DOESN'T ACCESS 
69 D=SPACE UNTIL CONDITIONS WARRANT. 


70 
71 2. TEST 77 = CHECKS THAT  SR1 MATCHES WHAT ACTUALLY 
72 HAPPENED TO THE REGISTER OF THE INSTRUCTION, AND 
YY a ll VALUE OF AUTO INCREMENT/DECREMENT WAS 


76 ALL THREE PARTS WERE RE-RELEASED WITH NEW SCOPE AND ERROR ROUTINES THAT 
77 CHECK BIT 0 OF THE CPU ERROR REGISTER (POWER MONITOR BIT). THE ADDI- 
78 TIONS WERE MADE IN THE SCOPE ROUTINE, EXECUTED AT THE BEGINNING OF 

79 EACH TEST. IF THE BIT BECOMES SET, AN ERROR _IS CALLED FROM THE 

80 SCOPE ROUTINE. THE BIT IS CLEARED, AND THE TEST IS CONTINUED. 

81 IF THE BIT BECOMES SET IN THE MIDDLE OF A TEST, AND AN ERROR OCCURS 
82 FOR ANY REASON, THE ERROR ROUTINE WILL CALL *TWO* ERRORS, THE POWER 
83 MONITOR BIT ERROR FIRST, THEN THE ERROR ORIGINALLY CALLED. IN 

ao ADDITION, THE $SREAD ROUTINE NOW CHECKS FOR A RANDOMLY INPUTED “Q 

85 BEFORE A “S IS TYPED. THIS BECAME NECESSARY WITH CERTAIN DATA 

86 CONNECTIONS OF SOME SYSTEMS. 


| ee me 
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ABSTRACT 


THE THREE PROGRAMS: 
CKFPACO CKFPBBO CKFPCCO 


ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
PDP 11/44 FP11-F FLOATING POINT PROCESSOR. THE 


LOGIC. THEY CONSIST OF 157 (OCT) INDIVIDUAL TESTS 
SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 
WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. _ THE 
TESTS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NOTE THAT EXROR REPORTS IN THESE PROGRAMS ARE BASED 
UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A_ SINGLE 
POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 
iy «Ag IN ORDER THEN ERROR MESSAGES MAY NOT BE 


A. CKFPACO 

CKFPACO TESTS: 
LDFPS 
STFPS 


CFCC 

be SETD, SETI AND SETL 

LDF AND LDD (ALL SOURCE MODES) 

STD (MODE 0 AND 1) 

ADDF, ADDD AND SUBD (MOST CONDITIONS) 
Ss. CKF PBBO 
CKFPBBO TESTS: 


ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
TESTED IN CKFPBBO) 
CMPD AND CMPF 


DIVD AND DIVF 
MULD AND MULF 
MODD AND MODF 
C. CKFPCCO 
CKFPCCO TESTS: 
STF AND STD (ALL MODES) 


STCFD AND  STCDF 
CLRD AND CLRF 
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2.1 


2.2 


2.3 


NEGF AND NEGD 

ABSF AND ABSD 

TSTF AND TSTD 

NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
LDFPS (ALL SOURCE MODES) 

LDCIF AND LDCLF 

LDCID AND LDCLD 


LDEXP 

STFPS CALL +5 1 ma cat MODE S) 

STCFL AND STCFI 

STCDL AND STCDI 

STEXP 

STST 

REQUIREMENTS 

EQUIPMENT 


A PDP 11/44 (WITH OR WITHOUT CONSOLE), LA30 (OR 
EQUIVALENT) AND AN FP11-F FLOATING POINT PROCESSOR. 

NOTE THAT A SPECIAL INTERRUPTS TEST MODULE IS_ SEING 
DESIGNED FOR USE IN THE MANUFACTURING ENVIRONMENT. 

WHEN THIS DEVICE IS PRESENT THE PROGRAM CKFPBBO WILL 
MAKE USE OF IT TO TEST THE FPP INTERRUPT ON BUS 
REQUEST FUNCTIONS. 


STORAGE - 


ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 
THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
11/44 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 


IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOSTICS 
BEFORE THESE FP11-F DIAGNOSTICS. 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON _ THE 11/44 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
PROGRAM AND OPERATOR ACTION 
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. LOAD PROGRAM INTO MEMORY 

LOAD ADDRESS 200 

SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 

° PRESS START 
ON FIRST PASS THE OGRAM 
WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR THE 
SO: TWARE SWITCH REGISTER (SEE SECTION 8.5). 
IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 
NOT APPLY. 

Je THE PROGRAM WILL LOOP AND AN END OF PASS AND 

ERROR SUMMARY WILL BE TYPED AT THE END OF 


wn 
ee 


EVERY PASS. 


36 OPERATING PROCEDURE 


5.1 OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 


OCTAL 
SW<15>=1... 00000 
SW<14>21... 40000 
SW<13>=1... 20000 
SW<12>=1... 10000 
SW<11>=1... 4000 
SW<10>=1... 2000 
SW<9>=1.... 1000 
Sw<8>=1.... 400 
SW<7>=1.... 200 
SW<7>=1.... 200 
6. ERRORS 


6.1 SUMMARIES 
IN PROGRAM CKFPACO, TESTS 


HALT ON ERROR 

LOOP ON CURRENT TEST 

INHIBIT ERROR TYPE OUTS 

INHIBIT T-BIT TRAPPING 

INHIBIT ITERATIONS 

RING TTY BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST SPECIFIED IN SW<6> 
Sw<0> 


PRINT ERROR SUMMARY EVEN IF 
APPLIES ONLY 10 
PROGRAM CKFPACO. 


SELECT CORRECT INTERRUPT TEST IN - 


PROGRAM CKFPBBO. IF APT IS SELECTING 
THE TEST, THE SWITCH REGISTER IS 
EXAMINED TO SEE IF THE USER HAS 
SELECTED THIS TEST BY A <I> IN 
SwW<7> 


1 AND 11 HAVE A tye te 


ERROR SUMMARY FEATURE. THESE TWO TEST RUN 


TEST PATTERNS THROUGH THE 
IS ENCOUNTERED, ONLY THE 
ry gett (TYPED ON THE TT 


OGGED AND AN_ ERROR 
THE Test 1S COMPLETE. NOT 





LOGIC. AFTER AN ERPOR 
FIRST FIVE oe ARE 


SUMMAR Y 
— THAT JF Sw<13>= 1. THIS 
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6.2 


8.3 


8.5 


PROGRAMS will GO AHEAD 


SUMMARY WILL NOT BE TYPED UNLESS Sw<7>=1. IN OTHER 

ST AN ERROR SUMMARY FROM EITHER OF 
THESE TwO TESTS 1 AND 117 IN PROGRAM CKFPACO BOTH 
SWITCHES 13 AND 7 MUST = 1. 


ERROR RECOVERY 


SW<15:9>=0... MOST ERRORS WILL “ss EXECUTION 10 
GO TO THE START OF THE NEXT TEST 
AFTER THE MESSAGE. IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 


THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE THE 
PROGRAM TO CONTINUE AS IF SwW<15>=0. 


RESTRICTIONS 


Sw<i5>=1... 


MISCEI LANEOUS 


EXECUTION TIMES 
LESS THAN 10 SD.ONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE THREE PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPEL. THE END OF PASS MESSAGE + hae 
THE TOTAL NUz 3ER OF PASSES COMPLETED AND THE TOTAL 
NUMBER OF ERRORS SINCF “HE LAST END OF PASS ME SSAGE . 


T-BIT TRAPPING 


IF SwW<12>=0 EACH PROGRAM w! 
ON EVERY OTHER PASS. F 
TRACE TRAPS. NOTE Sw<i2>= 1 


SOFTWARE SWITCH REGISTER 


EACH OF THE THREE PROGRAMS WILL RUN WITH OR WITHOUT 
A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
AND USE IT FOR THE SWITCH 


L RUN WITH TRACE TRAPS 
RST PASS WILL _NOT ENABLE 
DISABLES T-BIT TRAPS. 


L 
] 
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FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
1S NO CONSOLE SWITCH REGISTER ON THE SYSTEM A 
SOFTWARE SWITCH REGISTER WILL BE USED. THIS 
SOFTWARE SWITCH REGISTER CAN BE EXAMINED OR MODIFIED 
AT ANY TIME BY THE USER IF HE TYPES CONTROL G WHILE 
THE PROGRAM IS RUNNING. THIS CONTROL G WILL CAUSE 
THE CONTENTS OF THE SOFTWARE SWITCH REGISTER TO BE 
TYPED ON THE TTY AND ASK THE USER FOR A NEW VALUE. 
WHEN THE USER TYPES A VALUE AND CARRIAGE RETURN THEN 
THE PROGRAM WILL RESUME TESTING AT THE SAME POINT AT 
WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
REGISTER VALUE AFTER LOADING ADDRESS 200 AND 
STARTING THE PROGRAM THE FIRST TIME THE PROGRAM IS 
RUN AFTER LOADING (ONLY IF NO CONSOLE SWITCH 
REGISTER IS ON THE SYSTEM). 


INTERRUPTS TEST 


IN PROGRAM CKFPBBO, THERE IS A SPECIAL TEST FOR 
CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 
CAN BE RUN ONLY IF A SPECIAL TEST MODULE IS_ IN_ THE 
SYSTEM. THIS MODULE WILL PROBABLY ONLY BE USED IN 
MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 
THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 
TEST MODULE IS ON THE SYSTEM AND SW<7>=0 THIS TEST 
WILL BE RUN. IF SW<7>=1 THIS TEST WILL BE 
DESELECTED. 


ACT, APT AND XXDP COMPATIBILITY 
THE SE — ARE FULLY COMPATIBLE WITH: 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


ROUND\ TRUNK TEST 


SEQUENCE 
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THIS IS A_ TEST OF THE ROUND\TRUNK FLOWS. IN 

PARTICULAR TWO THINGS ARE TESTED: 4% A satel 9 
IN WHICH RUUNDING RESULTS IN _ THE NEED _ FOR 
RENORMALIZATION, AND SECOND THE PSW CONDITION CODES 
N AND Z BIT COMMBINATIONS 


CVER\UNDER TEST 


THIS IS A tig TEST OF THE OVER\UNDER FLOWS. ONE 
OVERFLOW AND TWO UNDERFLCW CONDITIONS ARE CHECKED. 
THE REMAINING UNDERFLOW COND. AND THE REMAINING 
OVERFLOW COND. WILL BE CHECKED LATER USING THE XXX 
INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
BOTH WITH TRAPS ENABLED (FIU=1 OR FIV=1) AND ALSO 
WITH TRAPS DISABLED (FIU=0 OR FIv=0). 


LDCFD AND LDCDF TEST 


THIS IS A TEST OF LDCFD AND LDCDF. 
CMPD TEST 


THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
INSTRUCTION AND CHECK THE RESULTS 


DIVD WITH (FSRC=0) AND (BUT FD) TEST 


THIS IS A TEST OF THE DIVD INSTRUCTION WITH A ZERO 
DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
ENABLED AND TRAPS DISABLED. 


DIVF TEST 


THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


DIVD TEST 


THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


MULF TEST 
THIS IS A TEST OF THE MULF_ INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS. 


SEQUENCE 
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TEST 14 
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K 1 
MACRO M1113 28-MAR-81 14:47 PAGE 5-6 SEQUENCE 10 


MULD TEST 


THIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS USING THE MULF INSTRUCTION WITH TRAPS 
DISABLED. NOTF THAT A SUBROUTINE IS USED TO SET UP ~ 
we foie tee EXECUTE THE MULF INSTRUCTION AND CHECK 


UNDER\OVER FLOW, USING MULD WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS THAT CAN ARRISE USING THE MULD 
INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
USED TO SET UP THE OPERANDS, EXECUTE THE MULD 
INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
CONDITIONS THAT CAN OCCUR’ USING THE MULF 
INSTRUCTION. A SUBROUTINE IS CALLED TO SET UP _ THE 
OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
RESULTS. HERE THE PARTICULAR INTERRUPT, EITHER 
oe OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW 
CONDITIONS USING THE MULD INSTRUCTION WITH TRAPS 
ENABLED. A SUBROUTINE IS USED TO SET UP _ THE 
et EXECUTE THE MULD INSTRUCTION AND CHECK THE 


MODF TEST 


THIS IS A TEST OF THE MODF INSTRUCTION, WHICH MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MODF INSTRUCTION AND CHECK THE RESULTS. 


MODD TEST 


THIS IS A TEST OF THE MODD INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE ARGUMENTS, EXECUTE ° 


. 


Sn 
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THE INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW 
CONDITIONS. IT MAKES USE OF A SUBROUTINE TO SETUP 
THE OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK 
THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 


UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE MODD INSTRUCTION'S OVER FLOW 
AND UNDER FLOW CONDITIONS. A SUBROUTINE IS USED TO 
SET UP THE OPERANDS, EXECUTE THE MODD INSTUCTION AND 
CHECK THE RESULTS. 


INTERRUPT CORRECT FLOWS TEST 


THIS IS A TEST OF THE ‘CORRECT’ FLOWS. THIS PART OF 
THE MICRO CODE HAS AS _ITS PURPOSE INSURING THAT 
INTERRUPT REQUESTS MADE DURING CERTAIN LENGTHY FPP 
INSTRUCTIONS GET HONORED. THIS IS DONE IN A WAY 
SUCH THAT IF AN INTERRUPT REQUEST OCCURS DURING ONE 
OF THESE INSTRUCTIONS THE STATE OF _ THAT 
INSTRUCTION'S EXECUTION WILL BE THE SAME AS IF _ THAT 
INSTRUCTION HAD NEVER BEEN FETCHED AND ITS EXECUTION 
NEVER STARTED. THUS THE MICRO CODE WILL RESTORE ALL 
REGISTERS, BACK UP THE PC AND LEAVE THE FPS AND ACO 
THROUGH ACS UNMODIFIED. 

THE INSTRUGTIONS FOR WHICH THIS IS NECESSARY ARE: 


ADD (OR SUB) 
DIV 
MUL 


MOD 
(BOTH DOUBLE AND FLOATING) 


ALL ADDRESSING MODES WILL BE TRIED WITH THE ADDD 
INSTRUCTION. THEN EACH OF THE OTHER INSTRUCTIONS 
WILL BE TRIED USING MODE 1. NOTE THAT THIS TEST 
NEEDS A SPECIAL INTERRUPT MODULE, WHICH WILL 
PROBABLY ONLY BE PRESENT IN DEC*S MANUFACTURING 
ENVIRONMENT, TO RUN. THIS SPECIAL EQUIPMENT IS 
DESIGNED TO RAISE AN INTERRUPT REQUEST IN THE 
PROCESSOR IF A BIT IS SET IN ITS STATUS REGISTER AND 
ONLY WHEN AN FPP INSTRUCTION IS ENCOUNTERED. 
THEREFORE THIS TEST WILL BE RUN CONDITIONALLY 
(DEPENDENT UPON WHETHER OR NOT THE STATUS REGISTER 

THE TEST EQUIPMENT TIMES OUT WHEN ges ol 


Ss 
REGISTER IS AT LOCATION 777774 (NOTE THAT ALL 
REFERENCES TO THIS LOCATION ARE MADE ~~ INDIRECT 
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10. 


THROUGH THiS PF IGRAMS LOCATION CORINT, SO THAT IF 
THE USER HAS MOD FIED THE TEST EGUIPMENT'S STATUS 
REGISTER TO RESPOND TO A DIFFERENT ADDRESS he 
CORINT MUST BE MADE TO CONTAIN THAT _ STATUS 
REGISTER'S NEW ADDRESS). THIS PROGRAM ASSUMES THAT 
THE TRAP VECTOR FOR THE TEST EQUIPMENT IS 110. 
AGAIN NOTE THAT ALL REFERENCES TO THIS TRAP VECTOR 
ARE INDIRECT, THROUGH THIS PROGRAM'S LOCATION CORTRP 
(IF THE TEST EQUIPMENT IS MADE TO TRAP TO A 
DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 
ADDRESS OF THIS VECTOR). 


LISTING 
@ 


SEQUENCE 
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-LIST ME 
MD 


-NLIST MC 
e-NLIST CND 


BEX 
-MCALL .HEADER,.SWRHI,.EQUAT,.SETUP, .$CATCH, 6 oe stenean 
“MCALL NEWTST,$$NEWTEST, .SEOP, . SAVE, $TYPE, .STY POCT 
"MCALL .$TYPDEC,.$TRAP, .SPOWER, . SAPTHDR, .SAPTBLS 
“MCALL .$TYPE,.$APTYPE, . SREAD 
-MCALL .EQUIV REMOVE FOR PDP-10 ASSEMBLY 
-TITLE CKFPBBO FP11F FLTG PNT PRT B 
3*COPYRIGHT (C) 1981 
:*DIGITAL EQUIPMENT CORP. 
; *MAYNARD , MASS. 01754 


TeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC@ -11-DZQAC-C5), JAN, 1981. 


$1N 
$swR-160000 7zHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


FPVECT=244 

$SWR=177400 

$SWRMSK=200 - 
TAB=11 

CRLF=15 ‘ és 


-SBTTL BASIC DEFINITIONS 
ci he OF THE STACK POINTER *** 1100 *** 


STACK= 
ee em gm A 
paw SteLs MEGS DEF INI TIONS 
HT= 11 3:CODE FOR HORIZONTAL TAB 
LF= 12 7;CODE FOR LINE FEED 
CR= 15 : CODE FOR CARRIAGE RETURN 
CRLF= 200 ;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= ne 7:PROCESSOR STATUS WORD 
STKLMT= 177774 22 STACK LIMIT REGISTER 
PIRQ= 177772 INTERRUPT REQUEST REGISTER 


; PROGRAM 
DSWR= 177570 ; ; HARDWARE SWITCH REGISTER 
DDISP= 177570 HARDWARE DISPLAY REGISTER 
3 *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 20 NERAL REG] 


8 STER 
R1= %1 7 GENERAL REGISTER 
R2= %2 7: GENERAL REGISTER 
R3= %3 7: GENERAL REGISTER 
R4= %4 7 GENERAL REGISTER 
R5S= “5 ::GENERAL REGISTER 
R6= %6 ; 3 GENERAL REGISTER 
R7= %7 :GENERAL REGISTER 

+ STACK POINTER 


SP= 26 
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PC= %7 3;PROGRAM™ COUNTER 
> *PRIORITY LEVEL DEFINITIONS 
PRO= 0 s;PRIORITY LEVEL 9 
PR1= 40 : PRIORITY LEVEL 1 
PR2= 100 s;PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PR4= 200 ::PRIORITY LEVEL 4 
PRS= 240 : PRIORITY LEVEL 5 
PR6= 300 ::PRIORITY LEVEL 6 
PR7= 340 ;;PRIORITY LEVEL 7 
3*''SWITCH REGISTER’ SWITCH DEFINITIONS 
Swi5= 100000 
Swi4= 0000 
Sw13= 20000 
Swi2= 10000 
Swi1= 4000 
swi0= 2000 
Swo9= 1000 
Sswos8= 400 
SwO7= 200 
Sw06= 100 
SwOoS= 40 
Swo4= 20 
Swo3= 10 
SWwO2= 4 
Sswoi= 2 
swoo= 1 
Sw9=Sw09 
Sw8=Sw08 
SW7=SWO7 
SW6=SW06 
SwW5=SWOs 
SW4=SW04 
SW3=Sw03 
SW2=Sw02 
Sw1=Sw01 
wO=Sw0 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 10000 
BIT14= 40000 
BIT13= 20000 
BIT12= 10000 
BIT11= 4000 
BIT10= 2000 
BIT09= 1000 
BITO8= 400 
BITO7= 200 
BITO6= 100 
BITOS= 40 
BIT04= 20 
BITO3= 10 
BITO2= 4 
BITO1= 2 
BITOO= 1 
BIT9=BITO9 
B1T8=B81T08 


B1T7=BI1T07 


SEQUENCE 


14 


CKF PBBO 


FP11F FLTG PNT PRT B 


BASIC DEFINITIONS 


000174 
000174 000000 
000176 000000 


000200 000137 004346 
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BIT6=B1T06 
BITS=BITO5 
BIT4=BIT04 
BIT3=B1T03 
BIT2=BITO2 
B1T1=B1T01 
BI TO=B1IT00 
;*BASIC ‘'CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
RESVEC= 10 ; 3RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 am BIT 
TRIVEC= 14 RACE TRAP 
BPTVEC= 14 : EBREAKPOINT TRAP (BPT) 
IOTVEC= 20 apy ots TRAP (I10T) **SCOPE** 
PWRVEC= 24 > :POWER FAIL 
EMTVEC= 30 : EEMULATOR TRAP (EMT) **ERROR** 
TRAPVE C=34 oe fe. a TRAP 
TKVEC= 60 Y KEYBOARD VECTOR 
TPVEC= 64 ath PRINTER VECTOR 
PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
-SBITL FPP REGISTER DEF INITIONS 
ACO =%0 
AC] =%1 
AC2 =%2 
AC3 =%3 
AC4 =%4 
ACS =%5 
AC6 =%6 
AC7 =%7 


-SBTTL  § CATCHER 


y*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ** 4*te HALT" 
S*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
S#LOCATION, e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: | “WORD 0 72: SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 32SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
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| CKFPBBO FP11F FLTG PNT PRT B SEQUENCE 
COMMON TAGS 
1314 .SBTTL COMMON TAGS 
FERRARA RARER ERRATA E RARER AERA RRA RAR R ARR ERREER ARR EEE ES 
“*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
‘*USED IN THE PROGRAM. 
001100 .=1100 
001100 $SCMTAG :;START OF COMMON TAGS 
001100 000000 .WORD 0 
001102 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0 +: CONTAINS ERROR FLAG 
001104 000000 S$ICNT: .WORD 0 :: CONTAINS SUBTEST ITERATION COUNT 
001106 000000 SLPADR: .WORD 0 * CONTAINS SCOPE LOOP ADDRESS 
001110 000000 $LPERR: .WORD 0 S: CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 >: CONTAINS TOTAL ERRORS DETECTED 
001114 000 $ITEMB: .BYTE 0 *: CONTAINS ITEM CONTROL BYTE 
001115 001 SERMAX: .BYTE 1 *: CONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 *: CONTAINS PC OF LAST ERROR INSTRUCTION 
001120 000000 $GDADR: .WORD 0 *: CONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 000000 $BDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘BAD’ DATA 
001124 000000 $GDDAT: .WORD 0 *:CONTAINS ‘GOOD’ DATA 
601126 000000 $BDDAT: .WORD 0 * CONTAINS "BAD’ DATA 
001130 000000 “WORD 0 t SRESERVED--NOT TO BE USED 
001132 000000 “WORD 0 
001134 000 SAUTOB: .BYTE 0 s AUTOMATIC MODE INDICATOR 
001135 000 $INTAG: .BYTE 0 *: INTERRUPT MODE INDICATOR 
001136 000000 -WORD 0 
001140 177570 SWR: WORD DSWR : ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP S:ADDRESS OF DISPLAY REGISTER 
001144 177560 TKS: 177560 +: TTY KBD STATUS 
001146 177562 $TKB: 177562 ::TTY KBD BUFFER 3 
001150 177564 $TPS: 177564 ti TTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 ‘:TTY PRINTER BUFFER REG. ADDRESS 
001154 L: .BYTE 0 +: CONTAINS NULL CHARACTER FOR 
001155 2 $FILLS: .BYTE 2 *: CONTAINS # OF FILLER CHARACTERS REQUIRED 
001156 012 $FILLC: .BYTE 12 ‘: INSERT FILL CHARS. AFTER A ‘LINE FEED 
001157 000 STPFLG: .BYTE 0 :: "TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
001160 000000 $REGAD: .WORD 0 ‘CONTAINS THE ADDRESS FROM 
s7WHICH (S$REGO) WAS OBTAINED 
000024 .REPT  $C(M3 
001162 000000 SREGO: .WORD 0 :: CONTAINS (($REGAD) +0) 
001164 000000 $REG]: .WORD 0 >: CONTAINS (($REGAD) +2) 
001166 000000 $RE .WORD 0 :: CONTAINS (($REGAD) +4) 
C01170 000000 $REG3: .WORD 0 CONTAINS (($REGAD) +6) 
001172 000000 £G4: .WORD 0 S: CONTAINS (($REGAD)+10) 
001174 000000 *REGS: WORD 0 *: CONTAINS (($REGAD) +12) 
001176 000000 $REG6: .WORD 0 t: CONTAINS (($REGAD)+14) 
001200 000000 $REG7: .WORD 0 S CONTAINS (($REGAD)+16) 
001202 000000 $REG10: .WORD 0 ?: CONTAINS (($REGAD) +20) 
001204 000000 $REG11: .WORD 0 t: CONTAINS (($REGAD) +22) 
001206 000000 $REG12: .WORD 0 SZ CONTAINS (($REGAD) +24) 
001210 000000 EGi3: .WORD 0 *: CONTAINS (($REGAD) +26) 
001212 000000 $RFG14: .WORD 0 >: CONTAINS (($REGAD) +30) 
001214 000000 $hivlS5: .WORD 0 *: CONTAINS (($REGAD) +32) 
001216 000000 $REG16: .WORD. 0 S: CONTAINS (($REGAD) +34) 
001220 000000 $REG17: .WORD 0 +: CONTAINS (($REGAD) +36) 
001222 000000 $REG20: .WORD 0 [: CONTAINS (($REGAD) +40) 
001224 000000 $REG21: .WORD 0 >: CONTAINS (($REGAD) +42) 
001226 000000 $REG22: .wORD 0 [CONTAINS (($REGAD) +44) 
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| 
| 001230 000000 $REG23: .wORD 0 := CONTAINS (<SREGAD) +46) 
000024 "REPT. 234 
| 001232 000000 $TMPO: “WORD 0 ::USER DEF INED 
001234 000000 SIMP1: WORD 0 “USER DEFINED 
001336 000000 $TMP2: WORD 0 STUSER DEFINED 
001240 000000 $STMP3 ~ WORD 0 ; USER DEFINED 
001342 000000 $TMP4: WORD 0 :tUSER DEFINED 
001344 000000 $TMPS: [WORD 0 TUSER DEFINED 
001346 000000 $TMP6: [WORD 0 <TUSER DEFINED 
001380 000000 $TMP7: “WORD 0 <TUSER DEFINED 
001252 000000 $TMP10 WORD 0 ; USER DEFINED 
001354 000000 $TMP11: :WORD 0 <SUSER DEFINED 
| 001256 000000 $TMP12: .WORD 0 *ZUSER DEFINED 
001260 000000 $TMP13: WORD 0 ; USER DEFINED 
001362 000000 $TMP14: “WORD 0 <TUSER DEFINED 
000000 $TMP1S: “WORD 0 <TUSER DEFINED 
001266 000000 $TMP16: .WORD 0 ; USER DEFINED 
001270 000000 $TMP17: . D 0 3; USER DEFINED 
001372 000000 $TMP20: {WORD 0 «USER DEFINED 
001274 C00000 $TMP21: . WORD 0 : USER DEFINED 
001376 600000 $TMP22: “WORD 0 <TUSER DEFINED 
001300 000000 $TMP23: . WORD 0 7 USER DEFINED 
001302 000000 STIMES: 0 7 7MAX. NUMBER OF ITERATIONS 
001304 000000 $SESCAPE :0 sESCAPE ON ERROR ADDRESS 
001306 207377377 SBELL: -ASCIZ_<207><377><377> 33 CODE FOR BELL 
001312 077 $QUES: .ASCII QUESTION MARK 
001313 015 $CRLF: .ASCII 4 & + CARRIAGE RE TURN 
001314 012 000 SLF: wASCIZ <1 ZZLINE FEED 
Terie titititt itt, 
~SBTTL APT MAILBOX-E TABLE 
LRARAAAE AAA ERA ERA EET A AAA A AAA AAAAE RARER AAA AAA A AAA EAHA SSE EES 
* EVEN 
001316 $MAIL: : APT MAILBOX 
001316 000000 S$MSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
001320 000000 $FATAL: .WORD AFATAL Ht ERROR NUMBER 
001322 000000 $TESTN: .WORD ATESTN ;;:TEST NUMBER 
001324 000000 $PASS: .WORD AS ::P4SS COUNT 
001326 000000 $DEVCT: .WORD ADEVCT ;:DEVICE COUNT 
001330 000000 $UNIT: "WORD AUNIT 31/0 UNIT 
001332 000000 SGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
1334 000000 $MSGLG: |WORD AMSGLG ::MESSAGE LENGTH 
001336 SETABLE tAPT ENVIRONMENT TABLE 
001336 000 SENV: .BYTE AENV : ;ENVIRONMENT BYTE 
001337 «000 SENVM: [BYTE AENVM : : ENVIRONMENT MODE BITS 
001340 000000 SSWREG: .WORD ASWREG ;;:APT SWITCH REGISTER 
001342 000000 $USWR: .WORD AUSWR ; :USER SWITCHES 
001344 000000 $CPUOP: .WORD ACPUOP sf TYPE, OPTIONS 
3* BITS 15-11=CPU TYPE 
oe 11704201 .11/05=02,11/20=03,11/40=04,11/45=05 
ts 11/70=06,PDQ=07,0=10 
7* BIT 10=REAL TI cCLOCc 
te BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGE 
001346 000 $MAMS1: .BYTE AMAMS1 ;:HIGH ADDRESS.M.S. BYTE 
001347 000 $MTYP1: BYTE AMTYP1 ;;MEM. TYPE .BLKA 
3* MEM. TYPE BYTE == (HIGH BYTE) 


se 960 NSEC CORE=001 





Sate 


| 
| 
| 
| 
| 
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SETEND: 


ADDW14 
ADDW15 


MEM.LAST 


300 NSEC BIPOLAR=002 


500 NSEC MOS=003 
3;HIGH ADDRESS ,BLK&# 


3;HIGH ADDRESS,M.S. BYT 
7:MEM. TYPE ,BLK ka2 
3;MEM.LAST ADDRESS, oi 
3;HIGH ADDRESS,M .S.BYTE 
32MEM. TYPE ,BLKA3 
73MEM.LAST ADDRESS ,BLK#3 
3:HIGH ADDRESS ,M.S.BYTE 
7:MEM. TYPE ,BLKA4 

ST ADDRESS ,BLK# 


3:MEM.LA 


3 INTERRUPT VECTOR, BUS PRIORITY#1 


23 INTERRUPT VECTOR#2BUS PRIOR 


;BASE ADDRESS OF EQUIPMENT UNDER TEST 


::DEVICE MAP 
7: CONTROLLER DESCRIPTION WORD#1 
;: CONTROLLER DESCRIPTION WORDA2 


; DEVICE 
; DEVICE 


E DESCRIPTOR 


DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 


ne eat 


WORD#14 
WORD415 


ORI TY#2 


SEQUENCE 


K#1 
ADDR. =3 yp tit »THIS WORD AND LOW OF ‘'TYPE** ABOVE 
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.SBTTL ERROR POINTER TABLE 

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

**THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

S*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ib, 24 # i PERTINENT. 


pee ne 


S*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRP 
‘ *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS ENPLAINED AS FOLLOWS: 
* EM POINTS TO THE ERROR MESSAGE 
:* DH : I POINTS TO THE DATA HEADER 
:* DT ::POINTS TO THE DATA 
:* DF ::POINTS TO THE DATA FORMAT 
001442 $ERRTB: 
1318 000267 .REPT | MNUMBER 
1320 ZITEM 1 
001442 040044 066436 071024 sees 3 .WORD £M1,DH1,DT1,DF1 
001452 040076 066526 071062 aie . .WORD &M2,DH2,DT2,DF2 
001462 040132 066436 071024 ae ‘ .WORD £&M3,DH3,D13,DF3 
601472 040237 066436 071024 hays .WORD EM4,DH4,DT4,DF4 
001502 040344 066436 071024 a ; .WORD €&M5,DHS,DTS,DF5 
001512 040451 066436 071024 2 , “WORD EM6.DH6.DT6.DF6 
001522 040556 066436 071024 ae 19 OP EM7,DH7,D17,DF7 
001532 040663 066436 071024 coma 4 HORD EM10,DH10,DT10,DF10 
001542 040770 066436 071024 ena 12 More —M11,DH11,D1T11,DF 11 
001552 041077 066436 071024 atl 3H EM12,DH12,DT12,DF12 
001562 041206 066436 071024 Stade 47 toro EM13,DH13,D113,DF 13 
001572 041322 066436 071024 ees 1570 EM14,DH14,DT14,DF 14 
001602 041434 066436 071024 as 16 MOR EM15,DH15,D115,DF 15 
001612 041546 066436 071024 pie 17 WORD EM16,DH16,DT16,DF 16 
001622 041643 066567 071110 eae 99" HORD —M17,DH17,D117,DF17 
001632 041720 066436 071130 et 3 HORD EM20,DH20,DT20.DF 20 
001642 041752 066642 071152 Nias 99" HORD EM21,DH21,D121,DF 21 
001652 042004 066731 071174 as 9g" On EM22,DH22.D122,DF 22 
001662 042065 066436 071212 iia EM23,DH23,D123,DF 23 
001672 042142 066436 071212 tes 95 WORD EM24 ,DH24 D124, DF 24 
001702 042240 066436 071212 oe 36 WORD EM25 ,DH25,DT25,DF 25 
001712 042325 066436 071212 ° WORD £&M26,DH26,D126,DF 26 


:ITEM 27° 





.-—- -----—---—---- ---- 
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| 001722 
001732 
| 001742 
001752 
001762 

001772 
002002 
002012 
002022 
002032 
002042 
002052 
002062 
002072 
002102 
002112 
002122 
002132 
902142 
002152 
002162 
002172 
002202 
002212 
002222 
002232 
002242 
002252 
002262 





042240 
042423 
042475 
042110 
042542 
042565 
042617 
042672 
042740 
042763 
043015 
043070 
043221 
043352 
043420 
043473 
043550 
043704 
043757 
044025 
051655 
051706 
051623 
051736 
052027 
052117 
052221 
052415 
052611 


———— 


PRT B 


066436 
066436 
0664 36 
0664 36 
0664 36 
0664 36 
0664 36 
066436 
(066436 
0664 36 
0664 36 
066436 
066436 
0664 36 
0664 36 
0664 36 
0664 36 
06464 36 
0664 36 
066436 
066436 
0664 36 
0664 36 
0664 36 
0664 36 
0664 36 
0664 36 
0664 36 
0664 36 
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071212 
071212 


071212 : 


071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071212 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 


ITEM 30 
yITEM 31- 
SITEM 32° 
ITEM 33 
ZITEM 34 
7 ITEM 35 
7 ITEM 36 
y1TEM 37 
y1TEM 40 
ZITEM 41- 
;ITEM 42. 
ITEM 43 
sITEM 44 
Z1TEM 45 
7 ITEM 46 
7 ITEM 47 
7 ITEM 50 
Z1TEM 51° 
ITEM 52 
SITEM 53° 
ZI1TEM 54 
y1TEM 55° 
7 ITEM 56 
y ITEM 57 
7 1TEM 60 
ITEM 61 
Z1TEM 62 
y1TEM ans 

WORD 


EM27,DH27,D127,DF 27 
EM30,DH30,D130,DF 30 
EM31,DH31,D131,DF 31 
EM32 ,DH32 D132, DF 32 
EM33,DH33,D133,DF 33 
EM34 ,DH34 D134 ,DF 34 
EM35 ,DH35,D135,DF 35 
EM36 ,DH36,D136,DF 36 
EM37,DH37,D137,DF 37 
EM40,DH40,D140,DF 40 
EM41,DH41,D141,DF41 
EM42,DH42,D142,DF 42 
EM43,DH43,D143,DF 43 
EM44 ,DH44 ,D1T44,DF 44 
EM45 ,DH45,D145,DF45 
EM46,DH46,D146,DF 46 
EM47,DH47,D147,DF47 
EMS0,.DH50,DT50,DF 50 
EM571,DH51,D151,DF 5? 
EMS2,DH52,DTS2,DF52 
EM53,DH53,D153,DF53 
EMS4 ,DH54 D154 ,DF54 
EM55,DH55,DT55,DF55 
EMS56,DH56,D156,DF 56 
EM57,DH57,D157,DF 57 
EM60 ,DH60 D160, DF 60 
EM61,DH61,D161 ,DF61 
EM62 ,DH62 .DT62.DF 62 
EM63,DH63,D163,DF 63 


SEQUENCE 
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002272 
002302 
002312 
002322 
002332 
002342 
002352 
002362 
002372 
02402 
002412 
002422 
002432 
002442 
002452 
002462 
002472 
002502 
002512 
002522 
002532 
002542 
002552 
002562 
002572 
002602 
002612 
002622 


052722 
053041 
053154 
053223 
053306 
053337 
053367 
053367 
053421 
053530 
053621 
053711 
054021 
054104 
054300 
054474 
054606 
054753 
055062 
055171 
055300 
044115 
044172 
044250 
044326 
044405 
044463 
044542 


0664 36 
066436 
0664 36 
0664 36 
0664 36 
0664 36 
066436 
0664 36 
0664 36 
0664 36 
0664 36 
066436 
0664 36 
0664 36 
0664 36 
0664 36 
066436 
0664 36 
0664 36 
066436 
0664 36 
0664 36 
0664 36 
066436 
0664 36 
066777 
066777 
066777 
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071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071264 
071212 
071212 
071212 
071212 
071352 
071352 
071352 


ZITEM 64 
71TEM 65 
s ITEM 66 
Z1TEM 67 
y1TEM 70 
3; 1TEM 71 
sITEM 72. 
Zs ITEM 73 
ZITEM 74 
ZITEM 75° 
Z1TEM 76 
: ITEM 77 
: ITEM 100 
s1TEM 107 
Z1TEM 102 

. WORD 
: ITEM 103 
ZITEM 104 

. WORD 
7 1TEM 105 

. WORD 
Z ITEM 106 
:1TEM 107 

. WORD 
7 1TEM 110 

. WORD 
:1TEM 111 
s1TEM 112 

. WOR 
s1TEM 113 
S ITEM 114 

. WORD 
7 1TEM 115 
Z1TEM 116 
s ITEM 117 
:1TEM 120 


EM64 ,DH64 ,DT64,DF 64 
EM65 ,DH65 ,DT65 ,DF65 
EM66 , DH66 ,DT66, DF 66 
EM67 ,DH67 D167, DF 67 
EM70,DH70,DT70,DF 70 
EM71,DH71,D171,DF 71 
EM72,DH72,D172,DF 72 
EM73,DH73,D173,DF 73 
EM74 ,DH74 ,DT74,DF 74 
EM75,DH75,D175,DF75 
EM76,DH76,D176,DF 76 
EM77 ,DH77 D177 .DF77 
EM100,DH100,DT100,DF 100 
EM101,DH101,DT101,DF 101 
EM102,DH102.DT102,DF 102 
EM103,DH103,DT103,DF 103 
EM104 ,DH104 ,DT104 ,DF 104 
EM105,DH105,DT105,DF 105 
EM106,DH106,DT106, DF 106 
EM107,DH107,DT107, DF 107 
—EM110,DH110,DT110,DF 110 
EM111,DH111,DT111,DF 111 
EM112,0H112,D1112,DF112 
EM113,DH113,D1113,DF 113 
EM114,DH114,DT114,DF114 
£M115,DH115,DT115,DF115 
EM116,0H116,D1T116,DF 116 
EM117,DH117,DT117,DF117 


SEQUENCE 
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002632 
002642 
002652 
002662 
002672 
002702 
002712 
002722 
002732 
002742 
002752 
002762 
002772 
003002 
003012 
003022 


003032 
003042 
003052 
003062 
003072 
003102 
003112 
003122 
003132 
003142 
003152 
003162 
003172 
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044700 
045036 
045173 
045330 
045406 
045465 
045543 
045622 
045700 
045757 
046115 
046253 
046411 
046546 
046703 
047040 
047126 
044115 
044172 
047215 
047273 
047352 
047517 
047664 
050030 
050174 
050262 
045330 
045406 


066777 
066777 
066777 
066777 
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071352 
071352 
071352 
071212 
071212 
071212 
071212 
071352 
071352 
071352 
071212 
071352 
071352 
071212 
071352 
071352 
071352 
071352 
071352 
071352 
071352 
071212 
071212 
071212 
071212 
071352 
071352 
071352 
071352 


7: 1TEM 
ITEM 
ITEM 
7; ITEM 
7 1TEM 
3; ITEM 
ITEM 
7; 1TEM 
7 1TEM 
7 1TEM 
7 ITEM 
ITEM 
7 ITEM 
ITEM 
7 ITEM 
7 ITEM 
7 ITEM 
7 ITEM 
ITEM 
7 ITEM 
7 ITEM 
7 ITEM 
7 ITEM 
7 1TEM 
7 ITEM 
7 ITEM 
7 ITEM 
7 ITEM 


EM120,DH120,D1120,DF 120 
EM121,DH121,DT121,DF 121 
EM122,DH122,D1122,DF 122 
EM123,0H123,D1123,DF 123 
EM124 ,DH124,DT124,DF 124 
EM125,DH125,D1125,DF125 
EM126,DH126,DT126,DF 126 
EM127,0H127,DT127,DF 127 
EM130,DH130,D1T130,DF 130 
EM131,DH131,D1131,DF 131 
EM132,DH132,DT132,DF 132 
EM133,DH133,D1133,DF 133 
EM134,DH134,DT134,DF 134 
EM135,DH135,D1135,DF135 
EM136,DH136,D1136,DF 136 
EM137,DH137,D1137,DF 137 
EM140,DH140,DT140,DF 140 
EM141,DH141,D1T141,DF 141 
EM142,DH142,D1T142,DF 142 
EM143,DH143,D1143,DF 143 
EM144,DH144,D1144,DF 144 
EM145,DH145,D1145,DF 145 
EM146,DH146,D1146,DF 146 
EM147,DH147,D1147,DF 147 
£M150,DH15C,DT150,DF 150 
EM151,DH151,D1T151,DF151 
EM152,DH152,D1152,DF152 
EM153,DH153,D1153,DF 153 
EM154,DH154,D1154,DF 154 


SEGUENCE 
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003202 
003212 
003222 
003232 
003242 
003252 
003262 
003272 
003302 
603312 
003322 
003332 
003342 
003352 
003362 
003372 
003402 
003412 
003422 
003432 
003442 
003452 
003462 
003472 
003502 
003512 
003522 
003532 


050351 
050427 
050506 
050653 
051011 
051156 
051322 
051457 
055410 
055474 
055557 
055611 
055677 
056022 
056107 
056255 
056423 
056535 
056621 
056655 
056707 
056776 
057140 
057302 
057370 
057536 
057704 
057746 


066777 
066777 
0664 36 
066777 
0664 36 
066436 
066777 
0664 36 
066777 
066777 
066777 
066777 
066777 
066777 
066777 
066777 
066777 
066777 
067076 
066777 
066777 
066777 
066777 
066777 
066777 
066777 
067177 
067267 
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071352 
071352 
071212 
071352 
071212 
071212 
071352 
071212 
071426 
071426 
071426 
071426 
071426 
071426 
071426 
071426 
071426 
071426 
071514 
071426 
071426 
071426 
071426 
071426 
071426 
071426 
071524 
071576 


s ITEM 155 
ZITEM 156 
s1TEM 157 

WORD 
ZITEM 160 

. WORD 
Z ITEM 161 
Z1TEM 162 
ZITEM 163 
: ITEM 164 
s1TEM 165 
: ITEM 166 
. WORD 
ZITEM 167 
: ITEM 170 
Z1TEM 173 
s1TEM 172 
Z1TEM 173 
S1TEM 174 
Z ITEM 175 
Z1TEM 176 

. WORD 
Z1TEM 177 
Z1TEM 200 

. WORD 
Zz ITEM 201 
:1TEM 202 
Z1TEM 203 
ZITEM 204 
Z1TEM 205 
ZITEM 206 
:1TEM 207 
s1TEM 210 
Z ITEM 211 


WORD 


WORD 
WORD 
WORD 


WORD 


WORD 
WORD 


~ £—M155,DH155,D1155,DF155 


—M156,DH156,DT156,DF 156 
EM157,DH157,D1157,DF 157 
EM160, 9H160,DT160,DF 160 
EMi61,DH161,D1161 ,DF 161 
EM162 ,DH162,D1162,DF 162 
EM163,DH163,DT163,DF 163 
EM164 ,DH164 ,DT164 ,DF 164 
EM165 ,DH165,DT165 ,DF 165 
EM166,DH166,DT166, DF 166 
EM167 ,DH167,DT167,DF 167 
—M170,DH170,DT170,DF 170 
EM171,DH171,D1T171,DF171 
EM172,DH172,D1172,DF 172 
EM173,DH173,D1173,DF 173 
EM174 ,DH174,D1174,DF 174 
EM175,DH175,D1175,DF175 
EM176,DH176,D1T176,DF 176 
—M177,DH177,D1177,DF177 
EM200 ,DH200,DT200 ,DF 200 
EM201 ,DH201 ,DT201 ,DF 201 
EM202 ,DH202 ,DT202 ,DF 202 
EM203 ,DH203,DT203,,DF 203 
EM204 ,DH204 ,DT204 , DF 204 
EM205 ,DH205 ,DT205 , DF 205 
EM206 ,DH206 DT 206 DF 206 
EM207 ,DH207,DT207,DF 207 
EM210,DH210,DT210,DF 210 





SEQUENCE 
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ERROR POINTER TABLE 


003542 060010 067267 071524 
003552 060154 067177 071620 


EM211,DH211,DT211,DF211 


. WORD 
ZITEM 212 
D  EM212,DH212,DT212,DF212 


003562 060340 067177 071620 oei ee EM213.DH213.D7215.DF.215 
003572 060524 067177 071620 -1TEM 218 EM214 ,DH214,DT214,DF214 
003602 060710 067177 071620 SITEM 216 EM215,DH215,DT215,DF215 
003612 061074 067267 071524 S1TEM 217 EM216,DH216,DT216,DF216 
003622 061256 067330 071702 S1TEM 220 EM217,DH217,DT217,DF 217 
003632 061320 067137 071524 + 1TEm 221 EM220 ,DH220,DT220,DF 220 
003642 061550 067267 071524 s1TEM 223 EM221 ,DH221 ,DT221, DF 221 
003652 062014 067137 071524 -1TEM 223 EM222 .DH222 ,DT222,DF 222 
003662 062245 067267 071524 -ITEM 22% EM223 ,DH223,DT223 ,DF 223 
003672 062512 067137 071524 -17em 228 EM224 ,DH224 ,DT224 ,DF 224 
003702 062743 067267 071524 -1Tem 228 EM225 ,DH225 ,DT225 ,DF 225 
003712 063210 067403 071620 SIEM 227 EM226 ,DH226,DT226,DF 226 
003722 063343 067472 071620 -1TEM 230 EM227 ,DH227 ,DT227 ,DF 227 
003732 063476 067403 071620 SITEM 231 EM230 ,DH230 ,DT230,DF 230 
003742 063632 067472 071576 SIEM 233 EM231,DH231,D1231 ,DF 231 
003752 057746 067472 071524 LITEM 233 EM232 ,DH232,D1232 DF 232 
903762 063766 067561 071722 SITEM 234 EM233 ,DH233,D1233 ,DF 235 
003772 064025 067622 071756 LITEM 238 EM234 ,DH234 ,DT234 , DF 234 
004002 064111 067710 971776 —_ age EM235 ,DH235 ,D1235 ,DF 235 
004012 064157 067750 071756 ITER op EM236 ,DH236 ,DT236,DF 236 
004022 064212 067622 071756 SITEM 260 EM237 ,DH237 ,D1237,DF 237 
004032 064276 070036 071756 1TEN ae ae: EM240 ,.DH240 ,DT240, DF 240 
004042 064332 067561 071722 ITEM 263 EM241 ,DH241 ,DT241 ,DF 241 
004052 064435 070036 071756 ITEM ar ae EM242 ,.DH242 ,DT242,DF 242 
004062 064471 067561 071722 LITEM 264 EM243 ,DH243,D1243,DF 243 
004072 064574 067561 071722 EM244 ,DH244 ,DT244 ,DF 244 


ZITEM 245 
004102 064633 067561 071722 ° 


EM245 ,DH245,DT245 ,DF 245 





ee es ee re rae ee 


M 2 
CKFPBBO FP11F FLTG PNT PRT B MACRO M1113 28-MAR-81 14:47 PAGE 8-6 SEQUENCE 25 
ERROR POINTER TABLE 


ZITEM 246 
004112 043525 066436 071212 some 343 EM246,DH246,D1246,DF 246 : 
004122 064715 070126 072010 “aven 25000 EM247,DH247,D1247,DF 247 
004132 064751 070173 072026 tel 95RD EM250,DH250,DT250,DF 250 
004142 065003 070173 072026 pri 55g 3HORD EM251,DH251,D1251,DF251 
004152 065036 066526 072040 tee 95 34tR EM252,DH252,DT252,DF 252 
004162 065127 066436 072052 ala a5 tOR EM253,DH253,D1253,DF 253 
004172 065213 066436 072052 anal aggKOR EM254 ,DH254 ,DT254,DF 254 
004202 065300 066436 072052 wits a5 tor EM255 ,DH255,D1T255,DF 255 
004212 065366 066436 072052: ee ad EM256,DH256,D1256,DF 256 
004222 065455 066436 072052 aes aggre EM257,DH257,D1257,,DF 257 
004232 065543 066436 072052 (=e 26j EM260,DH260,DT260, DF 260 
004242 065632 066436 072052 == Fees EM261,DH261,DT261 ,DF 261 
004252 065722 066436 072052 cee 363 EM262,,DH262,D1262, DF 262 
004262 066013 066436 072052 ahs agitor EM263,DH263,D1263,DF 263 
004272 066100 066436 072052 at agg EM264 ,DH264 ,DT264 ,DF 264 
004302 066165 066436 072052 al ae gtOr EM265 ,DH265,,DT265, DF 265 
004312 066252 070233 072040 ssn aggre EM266 ,DH266 D266, DF 266 
veal 004322 066353 066777 071426 ~ .WORD £M267,DH267,D1267.DF 267 
1322 
1323 .SBTTL ACT11 HOOKS 
LRA RAR AAA AAA AEE EEE E AEA AAA AEA AA AAA A AREER j 
*HOOKS REQUIRED BY ACT11 
004332 $SVPC=. :SAVE PC 
000046 .=46 
000046 035566 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 000000 "WORD O ::2)SET LOC.52 TO ZERO 
004332 - =$SVPC +: RESTORE PC 
1324 . SBTTL APT PARAMETER BLOCK 
ERE A AAA 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
[RARER ATA AAA AAA AAA AAA A AAA AAA AE TATA AAA AEA A AERA REE ES 
004332 .$X=. i 7 SAVE CURRENT LOCATION 
000024 *=24 “SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 73FOR APT START UP 
000044 -=44  >:POINT TO APT INDIRECT ADDRESS PNTR. 
000044 004332 $APTHDR : ZPOINT TO APT HEADER BLOCK 


004332 .=.$X 3 ;RESET LOCATION COUNTER 
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APT PARAMETER BLOCK 


RRA EREEEEEKEEH 


SET TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. ‘*- 


004332 THD: 
904332 000000 $HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
004334 001316 $MBADR: .WORD S$MAIL 3 ADDRESS OF APT MAILBOX (BITS 0-15) 
004336 000010 $TSTM: .WORD 10 RUN TIM OF LONGEST TEST 
004340 000040 SPASTM: .WORD 40 ; RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
004342 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1325 004344 000052 - WORD SETEND~SHAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 
1326 
1327 004346 START: 
-SBTTL ow al THE COMMON TAGS 
3:CLEAR THE COMMON TAGS ($CMTAG) AREA 
004346 012706 001100 MOV #SCMTAG RO z33FIRST LOCATION TO BE CLEARED 
004352 005026 CLR (R6) + 3zCLEAR MEMORY LOCATION 
004354 022706 001140 CMP AMSWR,RE ; ; DONE? 
004360 001374 BNE 6 ;;LOOP BACK IF 
604362 012706 001100 MOV STACK, SP 7:SETUP THE STACK POINTER 
zz INITIALIZE A FEW VECTORS 
004366 012737 033446 000020 MOV #SSCOPE ,a#1OTVEC 27107 VECTOR FOR SCOPE ROUTINE 
004374 012737 000340 000022 MOV #340,aM1OTVEC+2 ;:LEVEL 7 
004402 012737 033764 000030 MOV #SERROR , a#EMT VEC Fe VECTOR FOR ERROR ROUTINE 
004410 012737 900340 000032 MOV 7.8 awEMTVEC+2 ;:LEVEL 7 
004416 012737 036120 000034 MOV #STRAP ,AATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
004424 012737 000340 000036 MOV #340 ,@ATRAPVEC+2;LEVEL 7 
004432 012737 036204 000024 MOV #SPWRDN, @#PWRVEC ;;POWER_FAILURE VECTOR 
004440 012737 000340 000026 MOV #340,aWPWRVEC+2 ;:LEVEL 7 
004446 013737 033210 033202 MOV SENDCT,SEOPCT | ;;SETUP END-OF-PROGRAM COUNTER 
004454 005037 001302 CLR STIMES soa he NUMBER OF ITERATIONS 
004460 005037 001304 CLR SESCAPE eure THE ESCAPE ON ERROR ADDRE. S 
004464 112737 000001 001115 MOVB #1 , SERMAX OW ONE ERROR PER TEST 
A A te: THE ‘‘T-BIT'’ TRAP vector. OTHEN LOAD LOCAT IOS. “SRTRN'*, IN 
— ‘END-OF-PASS'* (SEOP) ROUTINE, WITH A ‘RTI** OR ‘RIT 
004472 012737 033432 000014 MOV WSRIRN,a#TBITVEC ;:SET ‘7’ BIT VECTOR TO $rTRN 
004500 012737 000340 000016 MCV #340, a#TBITVEC+2 eg lev VEL 
004506 012737 000002 033432 MOV #RTI,SRTRN T $SRTRN gf ° so 
004514 012737 004542 000010 MOV eS. @ARESVEC :PTky ~ DO AR 
004522 005046 CLR SP5 ze Y PS 
004524 012746 004532 MOV res, ~(SP) 2 ¢AND PC 
00453 RTT TRY THE R 
sottr3 012737 000006 033432 64$: ~ ee - SRTRN TiRTT IS LEGAL=-SET SRTRN TO A RTT 
004542 000010 65$: ADD #10,SP T ILLEGAL=-CLEAN OFF THE STACK 
004546 012737 000012 CO00U10 66$: Mov #RESVEC +2, amesvit™ 1 TRESTORE TRAP CATCHER 
004554 0050 033440 “LR $TBIT CLEAR *'T’’ BIT SWITCH 
004560 012737 004560 001106 MOV sy Foyt :EINITIALIZE THE LOOP ADDRESS FOR SCOPE 
004566 012737 004566 001110 MOV ;SLPERR SETUP THE ERROR LOOP ADDRESS 
::S1ZE FOR A HARDWARE ryt REGISTER. IF NOT FOUND OR IT JS 
;7EQUAL TO A ‘=1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
004574 013746 000004 MOV aWERRVEC, rtSP) sere ERROR VECTOR 
004600 012737 634 000004 MOV a67$, ave RRVEC SET UP _ERPOR VECTOR 
004606 012737 177570 001140 MOV #DSWR, SR 3SET 4 FOR & HARDWARE SwICH RESISTER 
004614 012737 177570 001142 MOV #DDISP ,DISPLAY STAND A HARDWARE DISPLAY REGISTER 
004622 022777 177777 174310 CMP #~1 ,@SWR 72 TRY TO REFERENCE HARDWARE Swi 
004630 001012 BNE 69$ 7;BRANCH IF NO TIMEOUT TRAP OCCURRED 
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INITIALIZE THE COMMON. T 


0004 
112737 
000420 


177777 
033366 
004770 
000042 
001336 
001140 


000001 


000042 


000001 
000176 


001134 
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+ ¢AND THE tine SWR IS NOT = -1 

BR 68$ ;BRANCH IF NO TIMEOUT 

67$: a4} #68$, (SP) +: SET UP FOR TRAP RETURN 

68$: MOV ASWREG, SWR © tonal TO SOFTWARE SWR 
MOV ADISPREG, DISPLAY 

69$: MOV (SP) +, @#ERRVEC atte ERROR VECTOR 
CLR SPASS ss CLEAR PASS COUNT 
BITB MAPTSIZE,SENVM ;;TEST USER SIZE eat APT 
BEQ 70$ YES, USE NON-APT SWITCH 

708: MOV #SSWREG, SWR NO, USE APT SWITCH REGISTER 

ry TYPE PROGRAM NAME 

: TYPE THE NAME - THE PROGRAM IF FIRST PASS 

INC ¢3FIR ST TIME? 
BNE wis ;BRANCH IF NO 
CMP #SENDAD , a#42 SEACT-N1? P 
BEQ 71$ fa ger YES 
TYPE ,?e$ YPE ASC12 STRING 

-SBTTL 4 VALUE FOR SOFTWARE siiten REGISTER 

arse ARE WE RUNNING UNDER XXDP/ACT? 

BNE 73$ ; BRANCH IF YES 
CMPB SENV,41 + sARE WE RUNNING UNDER APT? 
BEQ 73$ CH IF YES 
CMP SWR ,ASWREG 3 SOF TWARE SWITCH REG SELECTED? 
BNE 74$ ;BRANCH IF NO 
— 78 T:GET SOF T-SWR SETTINGS 

bet MOVB #1,$AUTOB ::SET AUTO-MODE INDICATOR 
BR 71$ :GET OVER THE ASCIZ 

picems .ASCIZ <CRLF>*CKFPBBO FPIIF FLTG PNT PRT B*<CRLF> 

LOOP: 
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TEST # 1 = ROUND\TRUNK TEST 


1343 .SBITL TEST # 1 = ROUND\TRUNK TEST 
DDE AE EEE IOITITIIIESIEIEISISIIUIEIIIISIUISISIIIIOIISOIIUIIIO ORE tit 


;*TEST 1 ROUND\ TRUNK TEST 


7* 
:* THIS IS A TEST OF THE ROUND\TR 
;* FLOWS. IN PARTICULAR TWO THINGS. ARE TESTED: 


;* Z BIT COMMBINATIONS 


T 


*® 
“+ -daccad-d>-deiaa han ace enlace ein ctanatadiaaiairenainnete net 
ea 005030 000004 $11: SCOPE 
it 3 ;ROUND AND NORMALIZE TEST 
1347 005032 —ix. HH1: 

005032 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1348 005034 012704 003200 MOV #3200,R4 sSET FIU, FIV, AND FD 
1349 005040 170104 LDFPS  R& 

1350 005042 012737 005062 001236 MOV #HH2 , $TMP2 

1351 005050 012700 006612 MOV #HHPO ,RO :SET ACO OPERAND 
1352 005054 172410 LDD (RO) ,ACO 

1353 005056 012700 006622 MOV #HHP1 ,R sF SPC 

1354 005 172010 HH2:  ADDD (RO) ,ACO :TEST INSTRUCTION 
1355 005064 170205 STFPS RS “GET FPS 

1356 012700 006602 MOV #HHDATO,RO ‘GET THE RESULT 
1357 072 174010 STD ACO, (RO) 

1358 005074 012701 006632 MOV #HHP2,R1 :1S IT CORRECT 
1359 005100 012702 000004 MOV #4 ,R2 

1360 005104 022021 HH3: CMP (RO) +, (R1)+ 

1361 005106 001415 BEQ HH6 

1362 005110 012700 006602 MOV #HHDATO, RO :DID FLOW GO 
1363 005114 012701 006642 MOV #HHP3 Ri ‘FROM STATE 663 
1364 005120 012702 000004 MOV #4 ,R2 ‘TO 313 INSTEAD 
1365 005124 022021 HHG : CMP (RO) +, (R1)+ ‘OF TO 353 
1366 005126 001402 BEQ HH5 

1367 005130 000137 005622 JMP HHERO 

1368 005134 077205 HHS: SOB R2,HH4 

1369 005136 137 005670 MP HHER1 

1370 005142 077220 HH6: SOB R2,HH3 

1371 005144 05 CMP R4_R5 ZFPS CORRECT? 

1372 005146 001402 BEQ HH? 

1373 005150 000137 005736 JMP HHEROO 

1375 :THIS IS A TEST OF THE ABILITY 

1376 ‘OF NORMALIZE TO PRODUCE A ZERO EXP. AND 

1377 TOF THE R\T ALGORITHM TO PORPERLY SET THE FPS 

1379 005154 HH?: 

005154 104413 | LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1380 005156 012704 043200 MOV #043200,R4 iSeT FIU.FIV.AND FD 
1382 005162 170104 LDFPS  R4 
1383 005164 012737 005212 001236 MOV #HHB , STMP2 :IN CASE UNDERFLOW 
1384 005172 012737 006532 000244 MOV WHHTRAP.FPVECT ; TRAP OCCURS 
1385 005200 012700 006662 MOV #HHPS , RO :SET ACO OPERAND 


28 
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Oo 
Nm 
SS 
wv 
nmr 
a) 
y= 


97 005244 


ee 

WWNWWAWAWAN? 
RUNS 
¥ 


1401 005256 
1402 


1403 
1404 005262 
C05262 


1433 

1434 005410 
410 

1435 005412 


1440 005440 


172410 
01 


PRT B 
TEST 
006672 


006602 


006652 
000004 


043200 


005312 
006712 


006722 
006602 
006702 
000004 


006602 
006652 
000004 


005446 
B08 
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001236 


001236 
000244 


HHB8: 


HH9: 


HH10: 


JMP 
;THIS IS A TEST 
sABILITY TO SET 
HH11: 


HH12: 


HH13: 


HH14: 


HH15: 
HH16: 


LPERR 

V #043200,R4 
LDFPS R4 
MOV #HH12,$TMP2 
MOV #HHP8 RO 
LOD (RO) ,ACO 
MOV RO 
ADDD _— (RO) ,ACO 
STFPS RS 
MOV #HHDATO,RO 
STD ACO, (RO) 
MOV #HHP7 ,R1 
MOV #4 .R2 
CMP (RO) +, (R1)+ 
BEQ HH16 
MOV #HHDATO,RO 
MOV HHHPS ,R1 
MOV #4R2 
CMP (RO) +, (R1)+ 
BEQ HH15 
JMP ERG 
S0B R2,HH14 
JMP ERS 
S0B HH13 
BIS #100014 ,R4 
CMP R4.RS5 
BEQ HHI 
JMP HH 

TEST THAT CC ARE CLEARED BY R\T 

LPERR 

V #00200,R4 
LDFPS  R4 
MOV #HH18,$TMP2 
MOV #FPSPUR,FPVECT 
MOV #HHPB RO 
LDD (RO) ,ACO 


(RO) ,ACO 
RQ 


SEQUENCE 29 


F SPC 

:TEST, INSTRUCTION 
[GET THE RESULT 
31S 1T CORRECT 


3FPS CORRECT? 


R3 
OF THE R\T ALGORITHM'S 
BOTH N AND Z ON A = O RESULT. 


SET UP 


;SET UP THE LOOP ON ERROR ADDRESS. 
SET FIV, FIV, AND FD 


SET ACO OPERAND 


sFSPC 

:TEST INSTRUCTION 
:GET FPS 

;GET THE RESULT 
31S IT CORRECT 


zFPS CORRECT? 


THE LOOP ON ERROR MOORESS « 
SET FIV, FIV, AND FD 


3SET ACQ OPERAND 





to 
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TEST # 1 = ROUND\T 


1441 005442 012700 


as 
™ 
5 a 
Oo 
S 
vw 
LS 
3 
oO 
= 
mw 
>] 
oO 
—_ 


ae 005512 000137 

1457 005516 

005516 

1458 005520 012704 
1701 


7 
1473 005600 077205 
052704 


— ~~ — —_ 
S B BR x 

ao 

Ss 

wv 

pt! 

Fabs 

0 

nm 

nono 

ea 

os 


905664 
1480 005670 
005670 


~~ —s 3 3 


Selssls 
N 
os 
os 


S 
— 
SN 
N 


PRT B 


RUNK TEST 


006712 


006602 
006732 
000004 


006302 
000000 


006350 


003200 


005546 
006662 


006662 
006602 
006742 
000004 


006416 
000010 
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001236 


HH18: 


HH19: 


HH20: 


HH22: 


HH23: 


HH24: 


HH25: 


HHERO: 


1$: 


HHERT: 


005674 

005700 006622 

005706 #HHPO. $T 
005714 006602 

005722 MOV 2.$TMP6 
0057 : 

005732 MP 


1$ 


V #HHPB ,RO 
ADDD _— (RO) , ACO 
STFPS RS 
MOV #HHDATO,RO 
STD ACO, (RO) 
MOV #HHP10,R1 
MOV #4 ,R2 
CMP (RO) +, (R1)+4 
BEQ HH20 
JMP HHER7 
SOB R2,HH19 
BIS #00000,R4 
CMP R4.RS5 
BEQ HH21 

MP HHER8 

SET BY R\T 
LPERR 
MOV #3200,R4 
LDFPS RG 
MOV #HH22, STMP2 
MOV #HHPS .RO 
LDD (RO) ,ACO 
MOV AHHPS ,R 
ADDD (RO) ,ACO 
STFPS RS 
MOV #HHDATO,RO 
STD ACO, (RO) 
MOV #HHP11,R1 
MOV #4 ,R2 
CMP (RO)+, (R1)+ 
BEQ HH24 
JMP RO 
SOB R2,HH23 
BIS #10,R4 
CMP R4 RS 
BEQ HH25 
JMP HHER10 
JMP HHDONE 
MOV R5,$TMP10 
MOV R4.$TMP11 
MOV 1,$7MP3 
MOV AHHPO, STMPS 
MOV #HHDATO, STMPS 
MOV #HHP2 , $TMP6 
ERROR +207 
JMP HHDONE 


RS, $TMP10 

R4,$TMP11 

#HHP 1 ~STMP3 
MP4 

#HHDATU, STMP5 

#HHP2, 

+211 

HHDONE 


;SET UP 


SEQUENCE 30 
sFSPC 
; TEST INSTRUCTION 
;GET FPS 
sGET THE RESULT 
s1S IT CORRECT 


FPS CORRECT? 


THE LOOP ON ERROR ADDRESS. 
SET FIV, FIV, AND FD 


;SET ACO OPERAND 
sFSPC 

s TEST INSTRUCTION 
:GET FPS 

:GET THE RESULT 
:1S IT CORRECT 


zFPS CORRECT? 


——-----——- -- —- — te 
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| TEST # 1 = ROUND\TRUNK TEST 
| 4481 005736 HHEROO: 
005736 010537 001252 MOV R5,$TMP10 
005742 010437 007254 MOV R4,$TMP11 
005746 012737 006622 001240 MOV MHHP1, STMP3 
} 005754 012737 006612 001242 MOV #HHPO. STMP4 
005762 012737 006602 001244 MOV #HHDATO, $STMPS 
005770 012737 006632 001246 MOV #HHP2, $TMP6 
005776 104210 1$: ERROR +210 
000137 006752 JMP HHDONE 
1482 006004 HHER2: 
010537 001252 MOV R5,$TMP10 
006010 010437 001254 MOV R4,STMP11 
006014 012737 006672 001240 MOV MHHP6 , STMP3 
006022 012737 006662 001242 MOV #HHPS , STMP4 
006030 012737 006602 001244 MOV #HHDATO,$TMP5 
006036 012737 006652 001246 MOV #HHPS , STMP6 
006044 104207 1$: ERROR +207 
006046 000137 006752 JMP HHDONE 
1483 006052 HHER3: 
C06052 010537 001252 MOV k5,$TMP10 
006056 010437 001254 MOV R4,$STMP11 
006062 012737 006672 001240 MOV MHHP6 , STMPS 
006070 012737 006662 001242 MOV #HHP5S , STMPS 
006076 012737 006602 001244 MOV #HHDATO,$TMP5 
006104 012737 006652 001246 MOV #HHPS , STMP6 
006112 104214 1$: ERROR +214 
006114 000137 006752 JMP HHDONE 
1484 006120 HHERG: 
006120 610537 001252 MOV R5,$TMP10 
006124 010437 001254 MOV R4,$TMP11 
006130 012737 006722 001240 MOV #HHPS , STMP3 
006136 012737 006712 001242 MOV #HHPB , STMPS 
006144 012737 006602 001244 MOV #HHDA1O,$TMP5 
006152 012737 006702 001246 MOV #HHP7 , S$TMP6 
006160 104207 1$: ERROR +207 
006162 000137 006752 JMP HHDONE 
1485 006166 HHERS : 
006 010537 001252 MOV R5,$TMP10 
010437 001254 MOV R4,$TMP11 
012737 006722 001240 MOV MHHPS , STMP3 
012737 006712 001242 MOV #HHPB , STMPS 
012737 006602 001244 MOV #HHDATO, $TMPS 
012737 006702 001246 MOV #HHP7, $TMP6 
104216 1$: ERROR +216 
000137 006752 JMP HHDONE 
HHER6: 
010 001252 MOV RS,$TMP10 
010437 001254 MOV R4.$TMP11 
012737 006722 001240 MOV #HHPS ,STMPS 
012737 006712 001242 MOV #HHPB , STMPS 
012737 00660. 001244 MOV #HHDATO, STMP5 
012737 006702 001246 MOV #HHP7 , $TMP6 
104215 1$: ERROR +215 
000137 006752 JMP HHDONE 
HHER7: 
010537 001252 MOV RS, STMP10 
010437 001254 MOV R4,STMP11 
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| TEST # 1 = ROUND\TRUNK TEST 


006312 012737 006712 001240 MOV —- #HHPB,, STMP3 
006320 012737 006712 001242 MOV —- #HHPB. STMPG 
| 006326 012737 006602 001244 MOV Ss #HHDATO, $TMPS 
006334 012737 006732 001246 MOV. —« #HHP10, STMP6 | 
| 006342 104207 1$: ERROR +207 
| 006344 000137 006752 JMP—- HHDONE 
1488 006350 HHERB : 
| 006350 010537 001252 Mov _—RS, STMP10 
006354 010437 001254 MOV RG. STMP11 | 
006360 012737 006712 001240 MOV —« HHP, STMP3 
006366 012737 006712 001242 MOV —«s #HHP8. STMPG | 
006374 012737 006602 001244 MOV —s #HHDATO, STMPS 
02 012737 006732 001246 V_-« #HHP10, $TMP6 
006410 104272 1$ ERROR +212 
006412 000137 006752 J HHDONE 
1489 006416 HHERS : 
006416 010537 001252 Mov _— RS, $TMP10 
006422 010437 001254 MOV = R4. $TMP11 
006426 012737 006662 001240 MOV «AHP, STMP3 
030434 012737 Gooeee 001242 MOV —«s #HHP 5. STMPG 
006442 912737 006602 001244 MOV —s#HHDATO, STMPS 
006450 012737 006742 001246 MOV  —«s #HHP'11, STMP6 
906456 104207 1$: ERROR +207 , 
006460 000137 006752 JMP «HONE 
1490 006464 HHER10: 
00€464 010537 001252 mov — RS, $TMP10 
006470 010437 001254 Mov = R4. $TMP11 
036474 012737 001240 MOV - #HHPS,, STMP3 
006502 012737 006662 001242 MOV —- #HHP 5. STMPG 
606510 012737 006602 001244 MOV —s #HHDATO, $TMPS 
(06516 012737 006742 001246 MOV  —«s #HHP'11, STMP6 
06524 104213 1$: ERROR +213 
006526 000137 006752 JMP «HONE 
1491 006532 013703 001236 HHTRAP: MOV STMP2,R3 zWAS THE TRAP TO 244 
1492 006536 062703 00002 ADD =: #2, R3 ON THE INSTRUCTION 
1493 006542 020316 (MP «R33. (SP) ZBE!NG TESTED? 
1494 006544 001402 BEQ 1$ 
1495 006546 000137 037000 JMP «FP SPUR 
1496 006552 011637 001236 1$: MOV (SP) ,$TMP2 FAILURE OF FPS INTERRUPT 
1497 DISABLE BIT (FID=1) 
1498 006556 022626 CMP (SP) +, (SP)+ [TO INHIBIT TRAP, 
1499 006560 170201 STFPS RI 
1500 006562 010137 001240 MOV —s- R11, STMP3 
1501 006566 170301 STST 1 
1502 006570 010137 001242 MOV —s_ R11, STMPS 
1503 006574 104217 2s ERROR +24 
504 006576 000137 006752 JMP —- HHDONE 
1505 006602 000000 HHDATO: 0 
1506 006604 000000 0 
1507 006606 000000 0 
1508 006610 000000 0 
1509 006612 52 HHPO: 452 
1510 006614 125252 125252 
1511 006616 125252 125¢5¢ 
1512 006620 125253 12525 
1513 006622 000252 WHPT: 252 
1514 006624 125252 125252 
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i 


onr 
ou 
mr 
wales) 
mr 


;HHPOQ + HHPT WITH 
[PROPER NORMAL J ZATION 


age 
ORF 
sOCOoOoC-— 


HHP 3: 


S 


sHHPO + HHP] WITH 
;BAD NORMAL 1ZA7 ION 


HHP4 : 


PUPP SVS SISA AIST SII UTT 
BIFARAYSSISNEGRAYLS sansa 


g 
8 
; 
-ODOOWIOOO “COCO 000O 
SS eace 
s 


3 
S 


5 + HHP6 


ek od a et td — «+ 


PPPS SAV ASSIST 


sHHP7 = HHP8 + HHPS 
: = HHP 


3% 


ae 


S 
we 
io] 
So 


8 
¢ 


HHPB + HHP8 


HHPS + HHPS 


“N 
& 
NM 
_—" 
é 
= 
ooo -000 

Oo 
oS 
8 
8 

; 
— 
i 


<0 a et td et = = 
PASIAN SIN 
RARAY= 
“N 
PS 


uw 
N 
N 
Ww 
Nm 


HHDONE : 





7GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
TVIRTUAL CONSOLE SWITCH REGISTER (HAS 
7 THE USER TYPED CONTROL G?) 


SS 


CKFPBBO FPI11F FLTG PNT PRT B 
TEST # 2 = OVER\UNDER TEST 


1573 


006754 000004 
1574 
1575 
1576 006756 

606756 104413 
1577 006760 012704 000200 
1578 006764 170104 
1579 006766 012737 007014 
1580 006774 012737 010046 
1581 007002 012700 011620 
1582 007006 172410 
1583 007010 012700 011620 
1584 007014 172010 
1585 007016 170205 
1586 007020 012700 011550 
1587 007024 174010 
1588 007026 012701 011630 
1589 007032 012702 000004 
1590 007036 022021 
1591 007040 001402 
1592 007042 010144 
1593 007046 077205 
1594 007050 2 000006 
1595 007054 020405 
1596 007056 001402 
1597 007060 0001 010212 
1598 
1599 
1600 007064 

007; 104413 
1601 007 012704 001200 


1603 007074 012737 007122 
02 012737 007140 
700 011620 


1607 007116 012700 011620 
1608 007122 172010 
1609 007124 170000 
1610 007126 012700 011550 
1611 007132 174010 


1612 007134 000137 010260 


oa 
MACRO M1113 28-MAR=81 14:47 PAGE 10 


001236 
000244 


001236 
000244 


SEQUENCE 


.SBTTL TEST # 2 = OVER\UNDER TEST 


" EERE AEA EERE EERE ERERARAAAEAAREREERERARERHE RH RANE ERHARH AES 


:*TEST 2 OVER\UNDER TEST 


THIS IS A PARTIAL TEST OF THE OVER\UNDER 
[*FLOWS. ONE OVERFLOW AND TWO UNDERF LOW 
:*CONDITIONS ARE eR THE REMAINING 
[*UNDERFLOW COND. THE REMAINING —_—— 
>*COND. WILL BE CHECKED LATER USING THE 

7*XXX INSTRUCTION. HERE EACH CONDITION TESTED 
t*1S CHECKED BOTH WITH TRAPS ENABLED 

:*(FIU=1 OR FIV=1) AND ALSO WITH TRAPS 

; *DISABLED (F 1U=0 OR Fiv=0). 


Ps 
. cenadiiaatntieradibaeetieneieninaainomaenniaante 


TST2: SCOPE 
A ad OVERFLOW CONDITION WITH TRAP DISABLER FIVv=0 


LPERR SET UP THE LOOP ON ERROR oa 


#200,R4 CLEAR FlU, FIV, AND SET 


RS 
MOV #GG2,$TMP2 
MOV #GGERO,FPVECT 
G RO SET ACO OPERAND 
SRC 

sTEST_IN INSTRUCTION 
3GET THE RESULT 
31S IT CORRECT 


GG2: ADDD ae 


R 
MOV #GGDATO,RO 
STD ACO, (RO) 
MOV #GGP6,R1 


MOV #4 R2 
GG3: CMP (RO) +, (R1)+ 
BEOQ GG4 
JMP GGER1 
GG4: SOB R2,6G3 
BIS #6.R4 :FPS CORRECT? 
CMP R4_RS 
BEQ 6G5 
IMP GGER2 
TEST OVERFLOW WITH TRAPS ENABLED 
GGS: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #1200,R4 SCLEAR FIU, SET FIV, AND FD 
LDFPS RG 
MOV #GG6.$TMP2 
MOV #GG7 FPVECT 
MOV #GGP5,R 7SET ACO OPERAND 
LDD (RO) ito 
MOV #GGP§ RO 3F SPC 
G66: ADDD (RO) ,ACO *TEST INSTRUCTION 


MOV #GGDATO,RO 
STD ACO, (RO) 
JMP GGER3 





34 
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TEST # 2 = OVER\UNDER TEST 


1613 007140 013703 001236 GG7: MOV $TMP2,R3 
1614 007144 662703 000002 ADD #2,R3 
1615 007150 020316 CMP R3, (SP) 
1616 007152 001402 BEQ 1$ 
1617 007154 000137 037000 JMP FPSPUR 
1618 007160 011637 001236 1$: MOV (SP) ,$TMP2 
1619 007164 022626 CMP (SP) +, (SP) + 
1620 007166 170205 STFPS RS 
1621 007170 012700 011550 MOV #GGDATO,RO :GET THE RESULT 
1622 007174 174010 STD ACO, (RO) 
1623 007176 012701 011630 MOV #GGP6,R1 :1S IT CORRECT 
1624 007202 012702 000004 MOV #4,R2 
1625 007206 022021 GG8: CMP (RO)+,(R1)+ 
1626 007210 001402 BEQ GG9 
1627 007212 000137 010326 JMP GGER4 
1628 007216 077205 GG9: SOB R2,GG8 
1629 007220 052704 100006 BIS #100006,R4 
1630 007224 020405 CMP R4,R5 sFPS CORRECT? 
1631 007226 001402 BEQ 1$ 
1632 007230 000137 010376 JMP GGER6 
1633 007234 012704 000010 1$: MOV #10,R4 
1634 :CHECK FEC 
1635 007240 170305 STST RS 
1636 007242 020405 CMP R4,R5 
1637 007244 001402 Bea GG10 


1o8 007246 000137 010330 GGERS 
1639 ; CHECK UNDER FLOW CONDITION WITH 


1640 TRAPS DISABLED (FIU = 0) 
1641 007252 6610: 
007252 104413 LPERR :SET UP THE LOOP ? Spe ADDRESS. 
1642 007254 012704 000200 MOV #0200,R4 [SET FIU, FIV, AND F 
1645 007260 170104 LDFPS RG 
1644 007262 012737 007310 001236 MOV #6611, $TMP2 
1645 007270 012737 010444 000244 MOV #GGER? ,FPVECT 
1646 007276 012700 011570 MOV #GGP2,RO :SET ACO OPERAND 
1647 007302 172410 LDD (RO) ,ACO + FSRC 
1648 007304 012700 011600 MOV #GGP3,RO 
1649 007310 172010 GG11: ADDD (RO), ACO ;TEST INSTRUCTION 
1650 007312 170205 STFPS RS “GET FPS 
1651 007314 012700 011550 MOV #GGDATO,RO ‘GET THE RESULT 
1652 007320 174010 STD ACO, (RO) 
1653 007322 012701 011630 MOV #GGP6,R1 :1S IT CORRECT 
1654 007326 012702 000004 MOV #4 ,R2 
1655 007332 022021 GGi2: CMP (RO) +, (R1)+ 
1656 007334 001402 BEQ 6G13 
1657 007336 000137 010542 JMP GGER8 
1658 007342 077205 6G13: SOB R2,GG12 
1659 007344 052704 000004 BIS #4~RG :FPS CORRECT? - 
1660 007350 020405 CMP R4_RS 
1661 007352 001402 BEQ GG14 , 
1662 007354 000137 010610 GGER9 
1663 JeHe CK UNDERF LOW CONDITION WITH 
1664 STRAP ENABLED (FIU = 1) 
1665 007360 GG14: 
007360 104413 LPERR :SET UP THE LOOP. 0 ON ERROR ADDRESS. 
1666 007362 012704 002200 MOV #2200,R4 “SET FIU, FIV, AND FD 
1667 007366 170104 LDFPS RG 
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TEST # 2 = OVER\UNDER TEST 


1668 007370 012737 007416 001236 MOV #GG15,$TMP2 
1669 007376 012737 007434 000244 MOV #5616 .FPVECT 

1670 007404 012700 011570 MOV #GGP2.RO zSET ACO OPERAND 
1671 007410 172410 LDD (RO) ,ACO *F SPC 
1672 007412 012700 011600 MOV #GGP3,RO 
1673 007416 172010 GG15: ADDD (RO), ACO sTEST INSTRUCTION 
1674 007420 170000 CFCC 
1675 007422 012700 011550 MOV #GGDATO,RO 
1676 007426 174010 STD ACO, (RO) 
1677 007430 000137 010656 JMP GGER10 
1678 007434 013703 001236 GG16: MOV $TMP2,R3 
1679 007440 062703 000002 ADD #2,R3 
1680 007444 021603 CMP (SP) ,R3 
1681 007446 001402 BEQ 
1682 007450 000137 037000 JMP FPSPUR 
1683 007454 011637 001236 1$: MOV (SP) ,STMP2 
1684 007460 022626 CMP (SP)+,(SP)+ 
1685 007462 170205 STFPS RS :GET FPS 
1686 007464 012700 011550 MOV #GGDATO,RO ‘GET THE RESULT 
1687 007470 174010 STD ACO, (RO) 
1688 007472 012701 011640 MOV #GGP7,R1 :1S IT CORRECT 
1689 007476 012702 000004 MOV #4 R2 
1690 007502 022021 GG17: CMP (RO)*,(R1)+ 
1691 007504 001402 BEQ 6G15 
1692 007506 000137 010724 JMP GGER11 
1693 007512 077205 GG18: SOB R2,GG17 
1694 007514 052704 100000 BIS #100000,R4 
1695 007520 020405 CMP R4,R5 sFPS CORRECT? 
169% 007522 001402 BEQ $ 
1697 007524 000137 010772 JMP GGER12 
1698 007530 2$: 
1699 007530 012704 000012 1$: MOV #12,R4 
7 : CHECK FEC 
1701 007534 170305 ; STST RS 
1702 007536 020405 CMP R4 RS 
1703 007540 001402 BEQ 6Gi9 
1704 007542 000177 001272 JMP @GGER13 
1705 = CHECK UNDERFLOW CONDITION WITH TRAPS 
1706 “DISABLED (FIU = 0) 
1707 6619: 

007546 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

1708 007550 012704 000200 V #0200,R4 SSET FIU, FIV, AND FD 
1709 007554 170104 LDFPS = R& 
1710 007556 012737 007604 001236 MOV #GG20,$TMP2 
1711 007564 012737 011106 000244 MOV #GGER14 ,FPVECT 
1712 007572 012700 011570 MOV #GGP2,RO ;SET ACO OPERAND 
1713 007576 172610 LDD (RO) ACO 
1714 007600 012700 011650 MOV #GGPB RO :F SPC 
1715 007604 172010 GG20: ADDD  (RO),ACO STEST INSTRUCTION 
1716 007606 170205 STFPS R “GET FPS 
1717 007610 012700 011550 MOV #GGDATO,RO *GET THE RESULT 
1718 007614 174010 STD ACO, (RO) 
1719 007616 012701 011630 MOV #GGP6,R1 s1S IT CORRECT 
1720 007622 012702 000004 MOV #4 ,R2 
1721 007626 022021 GG21: CMP (RO)+, (R1)+ 
1722 007630 001402 BEQ GG22 
1723 007632 000137 011204 JMP GGER15 








CKFPBBO FP11F FLTG PNT PRT B 
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1724 007636 077205 


7? 
1725 007640 052704 000004 
020405 





001402 
900137 011252 
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_ GG22: SOB R2,GG21 
B M4 ,RG 
CMP R4,R5 
GG23 

JMP GGER16 


3FPS CORRECT? 


SEQUENCE 37 


4 
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TEST # 2 = OVER\UNDER TEST 
1730 CHECK UNDERFLOW CONDITION WITH TRAP 





CKFPBBO FP11F FLTG PNT PRT B 


TEST # 2 = OVER\UNDER TEST 


1732 
1733 007654 
7654 


Vw 


58 007776 
0000 


oO 
= 


SSE STS 
SSISARARASS 

ss sssssss 

88 8888838 

NS PBaroxs 


NNNNNNN NN SY 
oo 
= 
SS 
RE 


IN 
MEWN 
o 
2 § 
: N 


SPATESISII 
ooooooescooesssS 
PRES SSEERERS 


ee ek ed td td od = I 


SIN NN SS 
SEER 

N 

ek et et ot ot SY I 
ooo 

—_——— 


000137 


012737 


002200 
007712 
007730 
011570 


011650 


001236 
000244 


011550 
011320 
001236 
037000 
001236 
011550 
011660 
000004 
011366 
100004 


011502 
000012 


011434 
011670 
001236 
000002 
037000 
000010 


011550 
011620 001240 


GG23: 


GG24: 


GG25: 


1$: 


GG28: 
GGERO: 


5$: 
10$: 
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ENABLED (FIU = 1) 


LPERR 

V #2200,R4 
LDFPS RG 
MOV #GG24,,$TMP2 
MOV #GG25.FPVECT 
MOV #GGP2,RO 
LDD (RO) ,ACO 
MOV #G5P8 RO 
ADDD (RO) ,ACO 
CFCC 
MOV #GGDATO,RO 
STD ACO, (RO) 
MP GGER17 
MOV $TMP2,RO 
ADD #2,R0 
CMP RO. (SP) 
BEQ $ 
JMP FPSPUR 
MOV (SP) ,$TMP2 
CMP (SP) +, (SP) + 
STFPS 5 
MOV #GGDATO,RO 
STD ACO, (RO) 
MOV #GGP9,R1 
MOV #4,R2 
CMP (RO) +, (R1)+ 
BEQ GG27 
JMP GGER18 
SOB R2,GG26 
BIS #100004 .R4 
CMP 4,R5 
BEQ 
JMP GGER20 
MOV #12,R4 
sCHECK FEC 
STST 
CMP R4 RS 
BEO GG28 
JMP GGER19 
JMP GGDONE 
MOV STMP2,R1 
ADD #2,R1 
CMP R1. (SP) 
BEQ 10$ 
IMP FPSPUR 
STST = RI 
CMP R1,410 
BNE 5$ 
CMP (SP) +, (SP)+ 
mOV #GGDATO,RO 
S™D ACO, (RO) 
MOV #GGP5 ,$TMP3 


;SET ACO OPERAND 


sFSRC 
:TEST INSTRUCTION 


;GET FPS 
;GET THE RESULT 


31S IT CORRECT 


3FPS CORRECT? 


om 


RROR ADDRESS. 


SEQUENCE 


39 
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TEST # 2 = OVER\UNDER TEST 


010114 012737 011620 001242 MOV —« #GGP5, STMP4 
010122 012737 011550 001244 MOV —-« AGGDATO, $STMPS 
010130 012737 011630 001246 MOV. —- #GGP6, $TMPS 
010136 104220 : 1$: ERROR +220 
rag 010140 000157 011670 JMP —- GGDONE 
1789 010144 GGER1: 
010144 010537 001252 Mov _—sRS.. STMP10 
010150 010437 001254 MOV TMP11 
010154 012737 011620 001240 MOV - #GSP5, $TMP3 
010162 012737 011620 001242 MOV -—«s#GGP5. $STMPG 
010170 012737 011550 001244 MOV —- #GGDATO, STMPS 
010176 012737 011630 001246 MOV. —- #GGP6, $TMP6 
010204 104207 1$: ERROR +207 
010206 000137 011670 JMP —- GGDONE 
1791 010212 GGER2: ; 
010212 010537 001252 MoV —s-RS, STMP10 
010216 010437 001254 MOV —- RG, STMP11 
610222 012737 011620 001240 MOV - #GGP5,, STMP3 
010230 012737 011620 001242 MOV - #GGP5. $TMPG 
010236 012737 011550 001244 MOV —«s #GGDATO, $TMPS 
010244 012737 011630 001246 MOV. - #GGP6, STMP6 
010252 104232 18: ERROR +232 
010254 000137 011670 JMP—-GGDONE 
1793 010260 GGER3: 
0260 010537 001252 MoV _—s«RS., STMP10 
010264 010437 001254 MOV —«R4. STMP 71 
010270 012737 011620 001240 MOV ——« #GGP5,, STMP3 
010276 012737 011620 001242 MOV - #GGP5, STMPG 
019304 012737: 011550 001244 MOV —« AGGDATO, STMPS 
010512 012737 011630 001246 MOV - #GGP6, STMP6 
010320 104221 1$: ERROR +221 
79s, 010522 000137 011670 JMP —-GGDONE - 
1795 010326 000706 GGER4: BR GGER1 
1797 010330 GGERS 

010330 010537 001252 MoV RS. STMP10 

0334 010437 001254 MOV «RG, STMP11 
010340 012737 011620 001240 MOV -« #GGP5,, STMP3 
010346 012737 011620 001242 MOV —« #GGP5. $TMPG 
010354 012737 011550 001244 MOV -—« #GGDATO, $TMPS 

10362 012737 011630 001246 MOV. —- #GGP6, STMP6 
010370 104226 1$: ERROR +226 

79g 010372 000157 011670 JMP —- GGDONE 

1799 010376 GGER6: 
010376 010537 001252 MOV _—s RS. STMP10 
010402 010437 001254 MOV —«R4 STMP11 
010406 012737 011620 001240 MOV - #GGP5,, STMP3 
010414 012737 011620 001242 MOV —« #GGP5. STMPG 
010422 012737 011550 001244 MOV —« #GGDATO, STMPS 
010430 012737 011630 001246 MOV —- #GGP6, STMP6 
010436 104227 1$: ERROR +227 
010440 000137 011670 JMP—«sGGDONE 





CKFPBBO FP11F FLTG PNT PRT B 
TEST # 2 = OVER\UNDER TEST 


See 
wr 


DOOCDOOCOCCCOCOO 
2 ot ot od 
RRERR 
FFSSE 


— 


010756 





013701 


10537 


8 
4 


001236 
000002 


037000 
000012 


011550 
011600 


011630 
011670 


011630 
011670 


_—— = 3 OO 


C 4 
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001240 
001942 


001244 
001246 


001240 


001246 


001240 


001246 


001240 


001246 


001240 


001246 


GGER7: 


5$: 
10$: 


1$: 


GGERB: 


1$: 


GGER9: 


1$: 


GGER10: 


1$: 


GGER11: 


$TMP2,R1 
#2,R1 
R1, (SP) 
10$ 
FPSPUR 


R1 
R1,412 
5$ 


(SP) +, (SP) + 
os aw 


#GGDATO, STMPS 
#GGP6,$TMP6 
+224 


GGDONE 
R5,$TMP10 


R4,$TMP11 
A#GGP3,$TMP3 


~ MGGP2,STMP4 


#GGDATO,$TMP5 
#GGP6,$STMP6 
+207 


GGDONE 


R5,$TMP10 
#GGDATO, $TMP5 
#GGP6,$TMP6 
+232 

GGDONE 


R5,$TMP10 


#GGDATO, STMPS 
vt + Ae -STMP6 


+ 


GGDONE 


R5,$TMP10 


#GGP7 ,STMP6 


SEQUENCE 


41 


‘enemas sneer 
D4 
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CKFPBBO FP11F FLTG PNT PRT B 
TEST # 2 = OVER\UNDER TEST 


010764 
010766 

1822 
1823 010772 
010772 
010776 
1002 
011010 
011016 
011024 
011032 
011034 

1824 
1825 011040 
011040 
011044 
011050 
011056 
011064 
611072 
011100 
011102 

1826 
827 011106 
1828 011112 
1829 011116 
1830 011120 
1831 011122 
1832 011126 
1833 011126 
1834 011130 
1835 011134 
1836 011136 
1837 011140 
1838 011144 

1839 
1840 011146 
011154 
011162 
011170 
011176 
011200 

1841 
1842 011204 
011204 
011210 
011214 
011222 
011230 
011236 
011244 
011246 

1843 
1844 011252 
011252 
011256 
011262 


104207 
000137 


010537 
0 


010537 
010437 
012737 


011670 


011640 
011670 
001236 
000002 


037000 


011630 
011670 
001252 


001254 
011570 


001240 


001240 


001246 


001240 


001246 


001240 


1$: 


GGER12: 


1$: 


GGER13: 


1$: 


GGER14: 


S$: 
10$: 


1$: 


GGER15: 


1$: 


GGER16: 


+207 
GGDONE 


#GGP2,STMP4 
#GGDATO,$TMPS 
#GSP7,S$TMP6 
+231 


GGDONE 


R5,$TMP10 


#GGP7 ,STMP6 
+230 
GGDONE 


STMP2,R1 
#2,R1 
“a 


FPSPUR 


R1 
R1,412 
5$ 


(SP) +, (SP) + 
#GGDATO,RO 
ACO, (RO) 


#GGP1 ,STMP3 
#GGP3,$TMP4 
#GGDATO, $TMPS 
#GGP6, $TMP6 


+222 


GGDONE 
RS,$TMP10 


#GGP8 .STMP4 
#GGDATO,$TMPS 
#GGP6,$TMP6 
+207 


GGDONE 
R5,$1MP10 


R4,$TMP11 
#GGP2,$TMP3 


SEQUENCE 


42 


| CKFPBBO FP11F FLTG PNT PRT B 





1849 
1850 


1851 
1852 


ed ed aed ed ed oe 
MMA 
NOU EW N 


76 


folelelals) 
paar reer Ser peer pee 


elelelelelelelele) 
ee ee ed et det 
NN wi YBRSsS -_— 
On MONEFAOLOO Sf 


Se KEKE OWWG 


ek eh ed ee a ee a a ae ed od 
Ononr 


— ss es ee ed ed ed ed ot eed ed ad td ot 


Mwr— 


COOCOS0909D DOOO DBDOODOCOCSCOO COCCOCCCOCSO leleleleleleleleio) 
vo 4 4 

OMAN WIVIWIY FU 

NO MO ASMO KNLOOM 


012737 


TEST # 2 = OVER\UNDER TEST 


011650 
611550 
011630 


011670 


E 4 
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001242 
001244 
001246 


001246 


001240 
001242 


001246 


001240 
001242 
001244 
001246 


1$: 


GGER17: 


1$: 


GGER18: 


18: 


GGER19: 


1$: 


GGER20: 


1$: 


GGDATO: 


GGP1: 


GGP2: 


#GGP8 ,STMP4 
#GGDATO,$TMP5 
#GGP6,$TMP6 
+232 


GGDONE 


RS,STMP10 
R4,$TMP11 
#GGP2,$TMP3 
#GGP8 ,STMP4 
AGGDATO,$TMP5 
#GGP9,$TMP6 
+223 


GGDONE 


R5,$TMP10 


#GGP9_ STMP6 


+207 


GGDON® 
R5,$TMP10 


#GGP8,STMP4 
#GGDATO,$TMP5 
#GGP9, STMP6 


+230 


GGDONE 
R5,$TMP10 


#GGP8,STMPS 
#GGDATO,$TMPS 
#GGP9,STMP6 
+231 

GGDONE 


SEQUENCE 


43 


| CKFPBBO FP11F FLTG PNT PRT B 
TEST # 2 = OVER\UNDER TEST 


| 
' 


w 
NN 
* 


1 011 
1866 011576 
1867 011600 
1868 011602 
1869 011604 
1870 011606 
1871 011610 
1872 011612 
1873 011614 
1874 011616 
1875 011620 
1876 011622 
1877 011624 
1878 011626 
1879 011630 
1880 011632 
1881 011634 
1882 011636 
1883 
1884 011640 
1885 011642 
1886 011644 
1887 011646 
i 011650 
1889 011652 
1890 011654 
1891 011656 
1892 011660 
1893 011662 
1894 011664 
1895 011666 
1896 011670 
011670 
1897 
1903 


000000 
000000 
000200 
060000 


000000 
000100 
000000 
000000 
000000 
104412 


GGP3: 


GGP4: 


GGP5: 


GGP6: 


GGP?: 


GGP8: 


GGP9: 


GGDONE : 


RSE TUP 


F 4 
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2400 


> 
oO 


SEQUENCE 


7OVER FLOW = GGPS + GGP5 


OVERFLOW RESULT 

;UNDERFLOW RESULT 

[GGP6 = GGP4 + GGPS5 

: pot + GGP2 (FIU = 0) 
GGP1 


: GP3 + 
3GGP7 = Gers + GGP2 (FIU = 1) 


:GO_INITIALIZE THE FPS AND STACK; AND 
THE DESIRE TO CHANGE THE SOF TWARE 


;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


44 


— ee 


——--- 


| CKFPBBO FP11F FLTG PNT PRT B 
TEST # 3 = LDCFD AND LDCDF TEST 


| 1904 


011672 
5 


| 
' 
1906 011674 
011674 
1907 011676 
1908 011702 
1 ! 
2 
1925 
1926 011770 
1927 011774 
| 


é 


DOCOCCODRCCOCCOCO 


wt at td ot 


ee ee dk td od td ot 


INN NN NN NS NN NNNNNNDDY 
nne-— 


MAfOWO 


a ee ee eee ee 
AWW oO 
yw 


OODOODOODOODOOONO 


N 


ed ed a od td et ot 


at at a 
0O000 
MONMNNY 
WN -OOOnN 
aoo 

ek ed ad ad ad od ad ed ad ad ad ed 
AOWMNE KES 
VSXSEUSS 


° 
$ 


1937 012030 

1938 

1939 012034 
012034 

1940 012036 

1941 012042 

194 


Pa 
1943 012044 
1944 012050 
1945 


1946 012052 
1947 012056 
1948 


1949 012064 
1950 
1951 012066 


012700 
172410 


012700 
012737 


170001 
177420 


000200 
013310 


013320 
011724 


013324 
012666 


001236 


013300 


013370 
000004 
013320 
013300 
000004 


012726 
012756 
000200 


013024 


0613320 
012066 001236 


SBTTL 
TeTEST 3 


G 4 
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SEQUENCE 


TEST # 3 = LDCFD AND LDCDF TEST 


4 RRR ERE RARER ARREREREEHEEAERARHEEAHERRERHAREE 


LDCFD AND LDCDF TEST 


-* 
:*THIS IS A TEST OF LDCFD AND LDCDF. 


+ RRR RREERAAERRERAAETEEETELERAEAEERAHEAAAAAERAAAEEHARHRHLOREL ORES 


TST3: SCO 
: TEST FOR C 
mie 


HX1 


HX2: 


HX3: 


HX4: 


HX5: 


HX6: 


HX7: 


sNOW 
Hx8: 


HG: 


LPERR 


PE 
ORRECT AUTO INCREMENT CONSTANT. 


SET UP THE LOOP ON ERROR ADDRESS. 


#200,R4 
RS 


#HXP1,RO 
(RO) ,ACO 
#HXP2 ,RO 
MHX2, STMP2 
(RO) +,ACO 
RO, AHXP2+4 


HX 
HXER1 


31S RO CORRECT 


GET FPS 


;GET ACO 
sSEE IF RESULT IS 
: CORRECT 


RS 
#HXDATO,RO 
ACO, (RO) 
#HXP7,R1 
#4,R2 
{R1)+, (RO) + 
HX7 
#HXP2,R1 
#HXDATO,RO 


#4,R2 
(R1)+,(RO)+ 
HX6 


:DID FD GET 
> COMPLIMENTED? 


sFPS CORRECT? 
HXER8 
LDCDF 
:SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,R4 
LDFPS R4 


#HXP1 ,RO 
(RO) ,ACO 


#HXP2 RO 
#HX9 ,STMP2 


(RO) +, ACO TEST INSTRUCTION 


45 


--—————-—— —- 
| 


| CKFPRBBO FPT1F FLTG PNT PRT B 


| TEST # 3 = LDCFD AND LDCDF TEST 


| 
| 
| 


1952 

1953 012070 
1954 012074 
bb as 012076 


wo 
al 
N 
oo 
nm 
— 
Lo) 
nN 


1958 012102 
1959 012104 
1960 012110 
1961 Ol2il2 
1962 012114 
1963 012120 
1964 012124 
1965 012126 
1966 

1967 012130 
1968 012134 
1969 012140 
1970 012144 


1975 

1976 012162 

1977 

1978 012164 

1981 012174 

1982 

1983 

1984 

1985 012200 
012200 


1986 
1987 912202 


1999 012254 

2000 

2001 012260 
012260 


2 
2003 012262 
2004 012266 
2005 012270 
2006 072276 


077220 


012704 
020405 
001402 
000137 


C13330 
012706 
013300 


013400 
000004 


013370 
013300 
000004 


013042 
013072 
000000 


013024 


000200 


012226 
013122 


043243 
037032 
000003 


013156 


000200 


012316 
013360 


MACRO M1113 


001236 
000004 


000004 


001236 


4x10: 


HX11: 


HX12: 


HX13: 


HX14: 


H 4 
28=MAR=81 14:47 PAGE 15-1 


RO, AHXP2+10 
HXx10 
HXERS 


R5 
#HXDATO,RO 


ACO, (RO) 
#HXPB,R1 


#4 ,R2 
(R1)+,(RO)* 
HX14 
M#HXP7,R1 
M#HXDATO,RO 
#4 ,R2 
(R1)+, (RO) 


HX13 
HXER6 


SEQUENCE 


;WAS A GOOD 
[CONSTANT USED 
:TO INCREMENT RO? 


3GET RESULT 


31S IT CORRECT? 


:DID FD FAIL TO GET 
COMPLIMENTED? 


3FPS CORRECT? 


TEST GR7 IMMEDIATE MODE CONSTANT 


HX15: 


HX16: 
HX165: 


Hx17: 


LPERR 


#200,R4 
RS 


#HX16,$TMP2 
SORE? AME? 


R 
#5201,ACO0 
Ry 

R1 


HX17 
HXER10 


#200,R4 


#HX18,STMP2 
MHXPE ,RO 





eee 
anes? 


SET UP THE LOOP ON ERROR ADDRESS. 


;SET FD 


;SEE IF PC WAS 
; CORRECT 


SET UP THE LOOP ON ERROR ADDRESS. 


46 


| CKFPBBO FRPIIF FLTG PNT PRT B 


TEST # $ = LDCFD AND LDCDF TEST 


Oooo 
par = Po’ 
R 


SSS8S 
MoNMNPoMENNMINMNPY so FUE 


Mm 
Oo 
ee et wd et + od 
ONAUEWN—O 
WWNWNAW NW 
ESRRS —_— 
MALO Aru 


Bow 
EFS 
Ano 


2019 
ose 


2029 012400 
030 


2 

2031 012402 
2032 012406 
2033 


2034 012410 


2037 012422 
2038 


2039 012424 
2040 012430 
2041 012434 
2042 012440 
2043 012442 
2044 012444 
2045 012450 
cose 012452 


204 

2048 012456 

2049 

2050 

2051 

2052 012460 
012460 

2053 012462 

2054 012466 

2055 

2056 012470 

2057 012474 

so38 012476 


20 
2060 012500 
2061 012506 


177410 


012700 
174010 


012701 


077220 


-Oo- 
nN 

out 
oo~ 
x aRW 


oo =o 
= NN 
MRM NM 
oky 
oos 


ate 


Q32 


37 
13320 


C 
0 
013300 
013370 
000004 


012726 


00200 


012400 
013360 


013340 
013300 


013350 
000004 


013370 
013300 
000004 


013210 
013230 


I 
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000004 


001236 


001236 


HX18: 


HX19: 


4X20: 


4 
SEGUE NCE 


(RO) ,ACO 
#CPSPUR ,ERRVECT 
MHXP2 ,RO 
(RO) ,ACO 


#HXDATO,RO 
ACO, (RO) 
#HXP7,R1 
#4,R2 
(RO) +, (R1)+ 
HX20 

HXER2 
R2,HX19 


GET RESULT. 


31S RESULT CORRECT? 


: TEST LDCFD WITH NEGATIVE OPERAND 
HX21: 


HX22: 


HX23: 


HX24: 


HX25: 


HX26: 
Zs TEST 
HX27: 


LPERR 
MOV 


SOB 
LDCFD 


LPERR 
MOV 
LDFPS 
MOV 
LDD 
ADDD 
MOV 
MOV 


;SET UP THE LOOP ON ERROR ADDRESS. 
* inion 


R 
#HX22,$TMP2 


(RO) ,ACO 


#HXDATO,RO 
ACO, (RO) 


M#HXPS ,R1 


#4,R2 
(R1)+#,(RO)+ 
HX26 


#HXP7 ,R1 
#HXDATO,RO 


#4 ,R2 
(R1)+,(RO)+ 
HX 


3GET RESULT 


WAS SIGN INCORRECT 


HXER12 
R2,HX23 
0 


SET UP THE LOOP ON ERROR ADDRESS. 
e700..m8 . : 


#HXP1 RO 
(RO), ACO 
(RO) ,ACO 


#HX28 ,STMP2 
#HXP1,RO 


47 


_ 


————————————————-—-— ——— —— 


J. 4 
CKFPBBO_FP11F FLTG PNT PRT B MACRO M1113. 28-MAR=81 14:47 PAGE 13-3 SEQUENCE 
| TEST # 3 = LDCFD AND LDCDF TEST : 


| 
| 2062 012512 177410 HX28: LDCFD (RO) ,ACO 


064 012514 170205 STFPS RS 

2066 912516 012700 013300 MOV #HXDATO,RO 

ster4 012522 174010 STD ACO, (RO) ;GET RESULT 

2069 012526 012701 013310 MOV #HXP1,R1. 

2070 012530 012702 000004 MOV #4,R2 

2071 912534 0622120 HX29: CMP (Ri) +, (RO) + 31S IT 0? 

2072 012536 001402 BEQ HX 30 

2073 012540 000137 013260 JMP HXER13 

207% 012544 077205 Hx30: SOB R2,HX29 

2076 012546 012704 000204 MOV #204,R4 :FPS CORRECT 

2077 012552 020405 CMP R4_RS 

2078 012554 001402 BEQ HX31 

2079 012556 000137 073006 JMP HXERG 

2081 sTEST LDCFD 0 

2082 

2083 012562 HX31: , 
012562 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

2084 012564 012704 000200 MOV #200,R4 : 

aio 44 012570 170104 LDFPS R4 

2087 012572 012700 013360 MOV HHXP6,RO 

2088 012576 172410 LDD (RO) ,ACO 

3090 012600 012737 012612 001236 MOV #HX32,$TMP2 

2091 012606 012700 013310 MOV #HXP1 .RO 

2092 012612 177410 HX32: LDCFD (RO),ACO 

ae 012614 170205 STFPS RS 

2096 012616 012700 013300 MOV #HXDATO,RO 

2097 012622 174010 STD ACO, (RO) :GET RESULT 

2099 012624 012701 013310 MOV #HXP1,R1 

2100 012630 012702 000004 MOV #4,R2 

2101 012634 022120 HX33: CMP (R1)+, (RO) + :1S IT ZERO? 

2102 012636 001402 BEQ HX34 

2103 012640 000137 013260 JMP HXER13 

2104 012644 077205 HX34: S08 R2,HX33 

2106 012646 012704 000204 MOV #204,R4 sFPS CORRECT? 

2107 012652 020405 CMP R4 RS 

2108 012654 001402 BEQ HX 35 

2109 012656 000137 013006 JMP HXERG 

110 012662 000137 013410 HX35: JMP HXDONE 

ge :RO INCORRECT 

9114 012666 012737 013324 001242 HXER1T: MOV MHXP2+4 ,STMPG 

2115 012674 010037 001240 MOV RO, STMPS 

2116 012700 104234 1$: ERROR +234 

2117 012702 000137 013410 JMP HXDONE 





CKFPBBO FPI1F FLTG PNT PRT B 
TEST # 3 = LDCFD AND LDCDF TEST 


2706 012737 013330 
soe 010037 001240 
2722 000137 013410 
012726 012737 013320 
012734 012737 013370 
012742 012737 013300 
013410 
012756 012737 013320 
12 012737 013370 
012772 012737 013300 
13000 
013002 000137 013410 


013006 010537 001240 
C13012 010437 001242 


BIFARANSSVSVRARAYLS oe 
oO 
— 
nm 
N 
Ww 
Nm 


NOPINONMONPONMMENONDNGNGTUNUNPO NNN NoNonorofnorononoenonnr 
Se ee DR RS RR kt ek a ad dd td od td 


39 013020 000137 013410 
41 013024 010537 001240 
42 013030 010437 001242 
43 013034 104242 
44 013036 000137 013410 
45 013042 012737 013320 
2146 013050 012737 013400 
2147 013056 012737 013300 
2148 013064 104244 
2149 01 3066 000137 013410 
2151 013072 012737 013320 
2152 013100 012737 013400 
2153 013106 012737 013300 
2854 013114 104243 
2159 015116 137 013410 
2157 013122 032716 000001 
2158 013126 001005 
2159 013130 022716 012232 
2160 013134 001402 
161 015136 000137 037032 
2163 013142 011637 001236 
2164 013146 022626 
2165 013150 104235 
2166 013152 000137 013410 
2168 013156 162701 000003 
2169 013162 006301 
2170 013164 012702 012232 
2171 013170 010237 001242 
2172 013174 160102 
2173 013176 010237 001240 
2174 013202 104236 


K_ 4 
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001242 


001244 
001250 
001246 


001244 
001250 
001246 


001244 
001250 
001246 


001244 
001250 
001246 


HXERS: 
1$: 


;REPORT 
HXER2: 


HXER22: 
1$: 


HXER3: 
HXER33: 
1$: 


HXERSG: 
1$: 


28: 


HXER10: 


MOV 


MHXP2+10,$TMP4 
MP3 


A 
#HXP2 ,STMPS 


#HXP7 ,STMP7 
#HXDATO, $TMP6 
+233 

HXDONE 


M#HXP2 , STMPS 
#HXP7 , STMP7 
M#HXDATO, $TMP6 
+241 

HXDONE 


R5,$TMP3 
R4,$TMP4 


RS,$TMP3 
R4,STMP4 
+242 


HXDONE 
HHXP2 , STMPS 


. MHXPB ,STMP7 


M#HXDATO, $TMP6 
+244 
HXDONE 


MHHXP2 ,STMP5S 
#HXPB ,STMP7 
#HXDATO, STMP. 
+243 ‘ 


HXDONE 


#1, (SP) SEE IF IT 
;AN ODD ADDRESS 
Seven Sere 


CPSPUR 


(SP) ,STMP2 
(SP)+, (SP)+ 


+235 


HXDONE 


#3,R1 

RI 
#HX165,R2 
R2,$TMP4 
R1_R2 
R2.$TMP3 
+236 





SEQUENCE 


49 


(a 


CKFPBBO_FP11F FLTG PNT PRT B 


TEST # 3 = LDCFD AND LDCDF TEST 


~“N 


5 013204 


013254 


013260 
013266 
013274 


PONGNIMPONMNGNONONNPYNMoNgNoNofMonononnoryd 

ir Sr i rr ar i Sr i Sr ar ir i er lr lr er re 

10 0 0 OO WO 00 G0 00 00 00 C0 C0 C0 CO NNN 

BRAN LSSELRARATSS ZaVe 
oO oO 


2 3400 
2226 013402 
2227 013404 
2228 013406 


2229 
2230 013410 
013410 


000137 


012737 
012737 
000137 


012737 
012737 
000137 


000000 


013410 


L 6 
MACRO M1113 28-MAR=81 14:47 PAGE 13-5 


001246 


001244 
001250 


HXER11: 


HXER12: 


1$: 


HXER13: 


HXDATO: 


HXP1: 


HXP2: 


HXP3: 


HXP4: 


HXP5: 


HXP6: 


HXP7: 


HXP8: 


HXDONE : 


JMP 


77777 
77776 


—- = NO0O - - eS = OOOWV 
N in) 
N 
N 
N 
oa 


NN NOMNMu 


oo-wMNoo- 
NN 
NN 
N 
™N 
N 


Pe] 
os 
~ 
S 


HXDONE 


MHXPS ,STMPS 
MHXP5S ,STMP7 


HXER2 

MHXPS ,STMPS 
MHXPS ,STMP7 
ewe 
HXDONE 


HHXP1, $TMPS 
#HXP1 . $TMP7 
HXER22 


+ 
™m 


:GO INITIALIZE. 


THE FPS AND STACK; AND 


SEQUENCE 


50 


CKFPBBO_FPIIF FLTG PNT PRT B 
TEST # 3 = LDCFD AND LDCDF TEST 





M 4 
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SEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


SEQUENCE 


51 


N 4 
A FP11F FLTG PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 14 SEQUENCE 
TEST # 4 = CMPD TEST 


2242 » SBTTL TEST # 4 = CMPD TEST 


EERE REAR E EEE REREEAREEKEKEEEEAKEREEEEREREAEERERE 


: TEST & CMPD TEST 


THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A SUBROUTINE 
3*1S USED TO SET UP OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 


; *RESULTS 
ne RT TE En ES eee 
ial 013412 000004 1$T4: SCOPE 
2264 :TEST THE CMPD INSTRUCTION WITH (FSRC=AC=0) 
2245 013414 AAAI: 
013414 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2246 013416 004737 014226 JSR PC, CMPSUB 
2247 013422 000000 000000 000000 1$: “WORD 0,0,0,0 ZACO 
2248 013432 000000 000000 000000 2$: “WORD 0.0.0.0 SF SRC 
2249 013442 009200 3$: 300 “FPS BEFORE EXECUTION 
2250 013444 000204 204 ‘FPS AFTER EXECUTION 
2251 013446 000200 200 TERROR FPS 
$526 013450 104001 4$: ERROR +] sFPS ERROR 
2254 
2255 sTEST CMPD WITH (AC=0) AND FSRC POSITIVE. 
2256 013452 AAA2: 
013452 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2257 013454 004737 014226 JSR PC, CMPSUB 
2258 013460 000000 000000 000000 1$: “WORD 0,0,0,0 ZAC 
2259 013470 025252 2$: 35252 :FSRC 
2260 013472 052525 52525 
2261 013474 125252 125252 
2262 013476 052525 
2263 013500 000200 3$: 200 :FPS BEFORE EXECUTION 
2264 013502 000200 200 ‘FPS AFTER EXECUTION 
2265 013504 000210 . 210 TERROR FPS 
2266 013506 104003 4$: ERROR +3 [FPS ERROR 
;TEST CMPD WITH (AC=0) AND FSRC NEGATIVE 
2269 013510 AAAS: 
013510 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2270 013512 004737 014226 JSR PC, CMPSUB : 
2271 013516 000000 000000 000000 1$: “WORD 0,0,0,0 ZAC 
2272 013526 125252 2$: 125252 SF SRC 
273 013530 125252 125252 
2274 013532 052525 52525 
2275 013534 125252 125252 
2276 013536 000200 3$: 200 :FPS BEFORE EXECUTION 
2277 013540 000210 210 ‘FPS AFTER EXECUTION 
2278 013542 000200 200 SERROR FPS 
2279 013544 104004 4$: ERROR +4 “FPS ERROR. 
2281 : TEST CMPD WITH (FSRC=0) AND AC POSITIVE 
2282 013546 AAAS: 
013546 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2283 013550 004737 014226 JSR PC, (MPSUB 
5284 013554 025252 1$: 25252 3 AC 
2285 013556 052525 $2525 





. 


CKFPBBO FP11F AB PNT PRT B 


B 5 
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SEQUENCE 53 


TEST # 4 = CMPD TEST 
2286 013560 125252 125252 
2287 013562 052525 52 
2288 013564 000000 000000 000000 2%: WORD 0,0,0,0 3F SRC 
2289 013574 000200 3$: 200 3FPS BEFORE EXECUTION 
2290 013576 000210 210 3FPS AFTER EXECUTION 
2291 013600 000200 200 sERROR FPS 
$o36 013602 104005 4$: ERROR +5 ;FPS ERROR 
22% 
2295 ;TEST CMPD WITH (FSRC=0) AND AC NEGATIVE 
2296 013604 AAAS: 
013604 104413 LPERR 3SET UP THE LOOP ON ERROR ADDRESS. 
2297 013606 004737 014226 SR PC, CMPSUB 
2298 013612 125252 1$: 125252 3AC 
2299 013614 125252 125252 
2300 013616 052525 52525 
2301 013620 125252 125252 
2302 013622 000000 000000 2$: -WORD 0,0,0,0 sFSRC 
2303 013632 600200 3$: 200 3FPS BEFORE EXECUTION 
01 200 200 3FPS AFTER EXECUTION 
2305 013636 000210 210 ERROR FPS 
01 104006 4$: ERROR +6 sFPS ERROR 
2308 ;TEST CMPD WITH AC POSITIVE AND FSRC NEGATIVE 
2309 013642 AAAG: 
13642 10441 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2310 013644 004737 014226 JSR PC ,CMPSUB 
2311 013650 052525 1$: 525. sAC 
2312 013652 125252 125252 
2313 013654 052525 525 
2314 013656 125252 125252 
2315 013660 125252 2$: 125252 32 FSRC 
2316 013662 052525 525 
2317 013664 125252 125252 
2318 013666 052525 525 
2319 013670 000200 3$: 200 3FPS BEFORE EXECUTION 
2320 013672 000210 210 3FPS AFTER EXECUTION 
2321 013674 000200 200 ERROR FPS 
2322 013676 104007 4$: ERROR +7 3FPS ERROR 
3 
2325 ;TEST CMPD WITH AC NEGATIVE AND FSRC POSITIVE 
2326 013700 AAA7?: 
013700 10441 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2327 013702 004737 014226 JSR PC,CMPSUB 
2328 013706 125252 1$: 125252 AC 
2329 013710 052525 52525 
2330 013712 125252 125252 
2331 013714 052525 52525 
2332 013716 052525 2$: 52525 3FSRC 
2333 013720 125252 125252 
2 013722 052525 5252 
2335 013724 125252 125252 
2336 013726 000200 3$: 200 ;FPS BEFORE EXECUTION 
2337 013730 000200 200 zFPS AFTER EXECUTION 
2338 013732 000210 210 sERROR FPS 
2339 013734 - 104010 4$: ERROR +10 3FPS ERROR. 





¢ 5 
CKFPBBO FP11F FLTG PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 14-2 SEQUENCE 
TEST # 4 = CMPD TEST 


2340 
2341 TEST CMPD WITH AC POSITIVE AND FSRC POSITIVE 
342 ;AND EAC LESS THAN EFSRC. 
23435 013736 AAAB: 
013 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
4 013740 004737 014226 JSR PC, CMPSUB 
2345 013744 012345 1$: 12345 3AC 
2346 013746 7654 67654 
2347 013750 032101 32101 
2348 013752 023456 23456 
013754 023456 2$: 23456 sF SRC 
2350 013756 076543 76543 
2351 013760 021012 21012 “ 
2352 013762 034 34567 \ 
2353 015764 000200 3$: 200 zFPS BEFORE EXECUTION 
2354 013766 000200 200 sFPS AFTER EXECUTION 
2355 013770 000210 210 ERROR FPS 
2356 013772 104011 4$: ERROR +11 sFPS ERROR 
$388 
2359 TEST CMPD WITH AC POSITIVE, FSRC POSITIVE AND EAC GREATER THAN EF SRC 
2360 013774 AAAY: 
013774 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2361 013776 004737 014226 JSR PC, CMPSUB 
2362 014002 045676 1$: 45676 3AC 
2363 014004 054321 54321 
14 012345 12345 
2365 014010 067654 67654 
2366 014012 024567 23: 34567 sFSRC 
2367 014014 065432 65432 
14016 101234 101234 
369 014020 056765 
2370 014022 000200 3$: 200 sFPS BEFORE EXECUTION 
2371 014024 000210 210 FPS AFTER EXECUTION 
2372 014026 000200 200 ERROR FPS 
Stn 014030 104012 4$: ERROR +12 
2375 :TEST CMPD WITH AC POSITIVE, FSRC POSITIVE AND AC EQUAL TO FSRC 
2376 014032 AAA10: 
014032 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2377 014034 004737 014226 JSR PC, CMPSUB 
2378 014040 012345 1$: 12345 zAC 
2379 014042 067012 67012 
380 014044 034567 4567 
2381 014046 012345 012345 
2382 014050 012345 2$: 12345 ZF SRC 
2383 014052 067012 67012 
2384 014054 034567 34567 
2385 014056 012345 012345 
2386 014060 000200 3$: 200 sFPS BEFORE EXECUTION 


ieayuancamemoemnaer” 


| CKFPBBO FP11F FLTG PNT PRT B 
TEST # 4 = CMPD TEST 


D5 
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2388 014062 000204 204 FPS AFTER EXECUTION 
2389 014064 000200 200 ERROR FPS 
Saat 014066 104013 4$: ERROR +13 FPS ERROR 
2392 : TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
2393 zAND FSRC GREATER THAN AC. 
2394 014070 AAAI1: 
014070 10441 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2395 014072 004737 014226 JSR PC, CMPSUB 
2396 014076 01234 1$: 12345 sAC 
2397 014100 067012 67012 
2398 014102 034567 34567 
2399 014104 012345 012345 
2400 014106 012345 2$: 2345 sFSRC 
2401 014110 070123 70123 
2402 014112 045670 45670 
2403 014114 123456 123456 
2404 074116 000200 3$: 200 FPS BEFORE EXECUTION 
2405 014120 000200 200 FPS AFTER EXECUTION 
2406 614122 000210 210 ERROR FPS 
ioe 014124 104014 4$: ERROR +14 FPS ERROR 
2409 TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
2410 AND AC GREATER THAN FSRC. 
2411 014126 AAAI2: 
014126 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2412 014130 004737 014226 JSR PC, CMPSUB 
2413 014134 054321 1$: 54321 3AC 
2414 014136 076543 76543 
2415 014140 021076 21076 
2416 014142 054321 54321 
2417 014144 054321 2$: 54321 - 3F SRC 
2418 014146 065432 432 
2419 014150 107654 107654 
2420 014152 032107 32107 
2421 014154 0002 3$: 200 FPS BEFORE EXECUTION 
2422 014156 000210 210 FPS AFTER EXECUTION 
2423 014169 0002 200 ERROR FPS 
SiSe 014162 104015 4$: ERROR +15 FPS ERROR 
2426 TEST CMPD WITH AC NEGATIVE, FSRC NEGATIVE, EAC EQUAL TO EFSRC, 
2427 ;AND_AC GREATER THAN FSRC 
2428 014164 AAA13: 
014164 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2429 014166 004737 014226 JSR PC, CMPSUB 
2430 014172 112345 1$: 112345 sAC 
2431 014174 043210 43210 
2432 014176 076543 76543 
2433 014200 021076 21076 
2434 014202 112345 cs 112345 zFSRC 
2435 014204 054321 54321 
014206 007654 07654 
2437 014210 032107 32107 
2438 014212 0002 3$: 200 3FPS BEFORE EXECUTION 
2439 014214 000210 210 FPS AFTER EXECUTION 
2440 014216 000200 - ERROR FPS 
2441 014220 104016 4$: ERROR . +16 FPS ERROR 





CKFPBBO FPIIF FLTG PNT PRT 8 
TEST # 4 = CMPD TEST 


2442 
2443 
tee} 014222 000137 014416 


2470 014226 012601 


2471 
2472 014230 016100 000020 
et? 014234 170100 


247: 

Sa98 014236 012737 014260 
2476 014244 010100 

gh 014246 172410 


2479 014250 010100 
2480 014252 062700 000010 


2481 
2482 014256 000240 
2483 014260 173410 


2484 

art 014262 170205 

Sine 014264 016104 000022 
2489 014270 010137 001240 
2490 014274 010137 001242 
2491 014300 062737 000010 
2492 014306 010537 001244 
2493 014312 010437 001246 


2495 014320 001410 
24 bs 3 


249 
toe 014322 026105 000024 


eeeeeeeeeeeeeeeeeeeeeEeEeEeEeEeEeEeEeEeEeEeE——e—eEe—E——————E————eeEEEE 


JMP 


THIS SUBROUTINE, CMPSUB, 
SAND CHECK THE RESULTS OF 


=. 
MACRO M1113 28-MAR-81 14:47 PAGE 15-1 


AAADONE 


s1T IS CALLED THUS: 


3 JSR PC, CMPSUB 
; ACARG: .WORD X,X.X,X 

: FSRCARG:.WORD X,X,X,X 

: FPSB: “WORD X 

: FPSA: .WORD X 

: FPSE: -WORD X 

é ERR: ERROR +X 

: CONT 


SEQUENCE 56 


FINISHED CMPD TEST. 


CALLED TO SET UP, EXECUTE 
A CMPD INSTRUCTION. 


;AC_OPERAND 

;FSRC_ OPERAND 

FPS BEFORE EXECUTION 
zFPS » bbe EXECUTION 


SERROR FPS 
FPS ERROR 
[RETURN ADDRESS 


[THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 

[FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, CMPD, IS EXECUTED. 

SAFTER THE EXECUTION THE FPS IS CHECKED AGAINST FPSA. IF IT IS A MATCH 
THEN THERE WAS NO ERROR AND CONTROL IS RETURNED TO CONT. IF 

THE FPS IS INCORRECT IT IS COMPARED WITH FPSE IN AN ATTEMPT TO ANALYSE 


TTHE FAILURE. 


IF THE FPS IS THE SAME AS FPSE THEN CONTROL IS 


SRETURNED TO THE ERROR CALL AT LOCATION ERR. IF THE FPS WAS 
NOT CORRECT BUT DIDN'T MATCH FPSE A GENERAL ERROR IS REPORTED 
AND CONTROL IS PASSED TO CONT. 


CMPSUB: MOV 


001236 MOV 


001242 ADD 


(SP) +,R1 
20(R1),RO 
RO 
#1$,STMP2 
R1,RO 
(RO) ,ACO 
R1,RO 
#10,R0 
(RO) ,ACO 
R5 
22(R1) , RS 
R1,$TMP3 
R1,$TMP4 
#10, $TMP4 


R5,$1MP5 
R4,$TMP6 


e 


3$ 


24(R1),R5 


;PICK UP A POINTER TO THE 
ARGUMENTS. 


;GET THE FPS o +e EXECUTION. 
[LOAD IT INTO THE FPS. 


SAVE ADDRESS OF CMPD INSTRUCTION. 
:GET ADDRESS OF AC OPERAND. 
;LOAD ACO OPERAND 


COMPUTE FSRC OPERAND 
; ADDRESS 


FOR SCOPING. 
SEXECUTE THE TEST INSTRUCTION. 


SAVE FPS AFTER INSTRUCTION. 
GET EXPECTED FPS. 


71F INCORRECT SET UP FOR 
AN ERROR CALL. 


WAS FPS CORRECT? 
;BRANCH IF YES. 


;WAS THE FPS THE SAME 


CKFPBBO FP11F FLTG PNT PRT B 
TEST # 4 = CMPD TEST 


2499 

$2ny 014326 
$208 014330 
2504 014334 


14336 
14340 


2517 

2518 C14364 

2519 

2520 014370 

2521 014370 

2522 014374 

2523 014402 

2524 014404 

2525 

2526 014406 

2527 

2528 

2529 

2530 014416 
014416 


001003 
062701 
000111 


00 
077303 
000161 


ap akc 


104412 


000026 


014406 
000004 
0C0030 
001240 
014406 001242 


000000 000000 


23: 


3$: 


4$: 


5$: 
6$: 


7$: 


CMPTMP: . 


AAADONE : 


RSETUP . 


#CMPTMP ,RO 
ACO, (RO) 


#4_R3 

(R2)+, (RO) + 
6$ 

R3,4$ 

30(R1) 
R1,$TMP3 
ACMPTMP ,STMP4 
+2 

5$ 

0.0.0.0 


zAS THE EXPECTED epee FPS? 
SBRANCH IF NO MATCH 


z1F THE EXPECTED a wee 

:FPS MATCHED THE RESULTANT FPS 
RETURN TO THE ERROR CALL 
: IN THE CALLING ROUTINE. 


OTHERWISE REPORT INCORRECT FPS 


71F FPS WAS CORRECT MAKE SURE 
SACO WAS NOT AFFECTED BY CMPD. 


; RETURN 
:REPORT ACO MODIFIED BY CMPD 


sRETURN 


G0 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

[THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SEQUENCE 


57 


| CxFPRBO FPITIF FLTG PNT PRT 8B” 
TEST @ 5 = DIvD with (FSRC=0) AND 


2542 


014420 


2544 
2545 014422 
46 014424 


§ 
2549 014430 


$228 014454 
$223 014460 


2558 014462 
2559 014464 


60 
2561 014466 
2562 014472 
2563 014474 
2564 
2565 014476 


2566 014502 
2567 014504 


$276 014514 
2574 014516 


257 2 
2578 014536 
2579 

2580 014540 
2581 014542 
2582 

2583 014544 


2584 014550 
2585 014552 
2586 


2587 014554 
2588 014560 


012701 
174411 


170205 
170303 


a 
Ps 
_ 
Ww 


-~—- 320-00 --0-— 


012702 
020203 


040200 


014674 
014460 
015100 


015100 


140204 


040200 


014556 
015110 


015100 


140200 


000004 


G 5 
MACRO M1113 “Pepe 14:47 PAGE 16 


SEQUENCE 
(BUT FD) TE 
- SBTTL TEST # 5 = DIVD WITH (FSRC=0) AND (BUT FD) TEST 
WOTTTTTITT LILI 
:*TEST 5 DIVD WITH (FSRC=0) AND (BUT FD) TEST 


000244 
001236 


001236 


STHIS IS A TEST OF THE DIVD INSTRUCTION WITH A 
3*ZERO DIVISOR. THE CONDITION IS CHECKED WITH BOTH 
;s TRAP ENABLED AND TRAPS DISABLED. 


a pbceebageeeehnnsneenbenssenenenehtakbhetenmaueneneenenn 


$15: SCOPE 
;FIRST TEST DIVD WITH (FSRC=AC=0) AND TRAPS DISABLED 
LPERR ET UP THE LOOP ON ERROR ADDRESS. 
BARO: MOV #40200,R4 SSET UP FPS 
‘WITH INTERRUPTS 
“DISABLED. 
LDFPS RG 
MOV #BBBER1,FPVECT:SET UP FOR ANY FP INTERRUPTS. 
MOV #BBB1, $TMP2 
MOV #BBRPi RO :SET UP ACO = 0 
LDD (RO) ,ACO 
MOV #BBBP1.R1 -  :FSRC = 0 
BBB1: DIVD (R1),ACO STEST INSTRUCTION 
STFPS RS :GET FPS 
STST —RB GET FEC 
MOV #140204 ,R4 SEXPECTED FPS. 
CMP R45 71S FPS CORRECT.- 
BNE BBRER2 ‘IF INCORRECT BRANCH. 
MOV #4 ,R2 SEXPECTED FEC. 
CMP R2.R3 [1S FEC CORRECT? 
BNE BRBER3 SIF INCORRECT BRANCH. 
ziest DIVD WITH (FSRC=0) AND TRAPS DISABLED. 
" LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #40200,R4 “LOAD FPS WITH TRAPS DISABLED. 
LDFPS RS 
MOV #BBB3, $TMP2 
MOV #BBBP 2 ,RO :SET UP ACO OPERAND (NON ZERO). 
LDD (RO) ,ACO 
MOV #BBRP1 RO :F SRC=0 
BBB3: DIVD  (RO),ACO 
STFPS RS SGET FPS. 
STST —RB GET FEC. 
MOV #140200,R4 SEXPECTED FPS. 
CMP R4,R5 s1S FPS CORRECT? 
BNE ‘IF INCORRECT BRANCH. 
MOV #4 ,R2 SEXPECTED FEC. 
CMP R2-R3 TWAS FEC CORRECT? 





58 
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| CKFPBBO FPTIF FLTG PNT PRT B 
| TEST # 5 = DIvD WITH (FSRC=0) AND (BUT FD) TEST 


H 5 
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SEQUENCE 


| 2589 014562 001111 BNE —- BBBER3 IF INCORRECT BRANCH. 
/ 9§91 :TEST DIVD WITH FSRC=0) AND TRAPS ENABLED. 
2592 014564 BBR : 
914564 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2593 014566 012704 000200 V #200,R4 ‘SET UP FPS. TRAP ENABLED. 
2594 014572 1701046 LDFPS 4 
5596 014576 012737 014622 001236 MOV #BBBS , $TMP2 
2597 014602 012700 015110 MOV #B3RP?2 RO :SET UP ACO OPERAND (NON ZERO). 
2598 014606 172410. . LDD (RO) ,ACO 
5600 014610 012737 014630 000244 MOV #BBB6.FPVECT SET UP FOR THE EXPECTED INTERRUPT. 
260 014616 O12 015100 MOV #BBAP' RO ‘FSRC=0 
2603 014622 174410. BBBS: DIVD  (RO),ACO :TEST INSTRUCTION (SHOULD RESULT IN TRAP). 
3604 014624 170000 FCC 
2606 014626 000502 BR BRBER4 :GO REPORT FAILURE, NO TRAP. 
5608 014630 022716 014624 BRBB6: CMP #BBBS+2,(SP) _; TRAP TO HERE WHEN THE DIVISION BY 0 
2609 TOCCURS. FIRST SEE IF THE ADDRESS OF 
2610 ‘THE TRAP IS 2+THE ADDRESS OF THE TEST 
2611 “DIVD INSTRUCTION. 
5612 014634 001402 BEO 1$ 
2613 014636 000137 037000 JMP FPSPUR :1F NOT THEN REPORT AN UNEXPECTED 
2615 014642 170205 1$: STFPS RS ‘GET FPS. 
5616 014644 170303 | STST RB “GET FEC. 
2617 014646 022626 CMP (SP) +, (SP)+ “RESET THE STACK. 
5619 014650 012704 100200 MOV #100200,R4 sEXPECTED FPS. 
5620 014654 020405 CMP R4_RS *1S FPS CORRECT? 
2621 014656 001040 BNE BRBER2 “IF INCORRECT BRANCH. 
3014660 012702 000004 MOV #4 ,R2 sEXPECTED FEC. 
2624 014664 020203 CMP R2.R3 SIS FEC CORRECT? 
2625 014666 001047 BNE ER SIF INCORREC\ BRANCH. 
2627 014670 000137 015120 JMP BBBDONE SOTHERWISE GO TO NEXT TEST. 
2629 
2630 :TRAP HERE IF AN UNEXPECTED INTERRUPT OCCURS. 
2631 014674 062737 000002 001236 ®BBBER1: ADD #2, SIMP2 SEE IF THE INTERRUPT OCCURRED 
2632 SDURING THE EXECUTION OF THE DIVD 
2633 ‘INSTRUCTION BEING TESTED. 
2634 014702 021637 001236 cmp (SP) ,$TMP2 
5635 014706 001402 BEQ 1$ ° 
2656 014710 000137 037000 JMP FPSPUR :IF NOT REPORT UNEXPECTED FP TRAP. 
5638 014714 022626 1$: CMP (SP) +, (SP)+ :RESET THE STACK. 
5639 014716 170303 STST RB GET FEC. 
3640 014720 170205 STEPS RS “GET FPS. 
5641 014722 012737 000004 001240 MOV #4. STMP3 SEXPECTED FEC. 
2642 014730 010337 001242 MOV R3_$TMP4 
5643 014734 010537 001244 MOV R5°$TMP5 
3646 0147640 010037 001250 MOV RO. $TMP7 


59 


TEST #5 = DIvD 


2645 014744 
so“8 014752 


264 
2648 014754 
2649 


2650 
2651 014760 
2652 014764 
2653 014770 
2654 014774 
2655 015000 
2656 015002 
2657 


2661 015016 
2662 015022 
2663 015026 
2664 C15030 


2677 015076 

2678 

2679 015100 

2680 015110 

2681 

2682 

2683 

2684 015120 
015120 


| CKFPBBO FPTIF FLTG PNT PRT B 


WITH (FSRC=0) AND 


oer ae 
106017 


000137 


000000 
012345 


104412 


140200 


015120 


000000 
054321 


. 2 
Hy M1113 c0-R-6" 14:47 PAGE 16-2 


SEQUENCE 
(BUT FD) TES 
001246 MOV #140200, $TMP6 
ERROR +17 ;REPORT (BUT ©D) FAILED RESULTING IN AN FP TRAP 
‘WITH TRAPS DISABLED. 
JMP BBBDONE 
:REPORT FPS INCORRECT: 
BBBER2: MOV RS, $TMP4 
MOV R4.$TMPS 
MOV RO. $TMP6 
MOV R1,$TMP7 
1$: ERROR +20 
JMP BBADONE 
;REPORT FEC INCORRECT: 
BRBBER3: MOV R3,$TMP4 
MOV R2.$TMP3 
MOV RO. $TMP6 
MOV R1,$1MP7 
1$: ERROR +21 
IMP BBBDONE 
:REPORT NO TRAP OCCURRED AFTER TRYING TO DIVIDE 
‘BY ZERO. WITH ALL TRAPS ENABLED. 
BBBERG : R3 :GET FEC. 
sips RQ *GET FPS. 
001242 . MOV #4, $TMPS 
MOV R3.STMP3 
MOV R5.$TMPS 
001246 MOV #700200 STMP6 
MOV RO, $TMP7 
MOV R1,$TMP10 
1$: ERROR +22 
BR BBBDONE 
000000 BABP1: .WORD 0,0,0.0 
023456 BBBP2: {WORD 12345.54321,23456, 76543 
BBBDONE : 
"RSE TUP 





3GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH a (HAS 
2 THE USER TYPED CONTROL G?) 
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—. 


2695 


2716 075206 

2717 015212 

2718 

2719 

2720 015214 
015214 

2721 015216 


2727 015242 

2728 

2729 015246 

2730 

2731 

2732 015250 
015250 

2733 015252 

2734 015256 

2735 015262 

2736 


015266 
2737 015272 
2738 015274 


TEST 


000000 
000004 
012345 
104023 


104413 
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015704 
000000 
067012 
000000 


067012 


015704 
125252 


000000 
125252 


125252 


015704 
000000 
000000 
000000 


000000 


015704 
177777 


000000 
177777 
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TEST # 6 = DIVF TEST 


SLUR AAA TRAE EAAAE AREER ARERR ARREREAERAEREARERE EEE ERE RHEE ES 


TEST 6 


: STHIS 1S A TEST OF THE DIVF INSTRUCTION. NOTE THAT A SUBROUTINE IS 
i sUSED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 
;* U e 


DIVF TEST 


SEQUENCE 


2 
SLUR AAA AAA EEE AAA E EE EEE E REE E ERA ERRERER ERE EERRERRA EERE ARES 


TST6: 


SCOPE 


:CHECK DIVF WITH (AC=0). 
CCCh 2 


PC,DIVF SUB 
12345,67012 
0.0 
12345,67012 
+23 
AC POSITIVE, 
PC,DIVFS 
65652, 138952 
65600.0 
$0052. 125252 
40052, 125252 
+24 
AC POSITIVE, 
PC ,DIVF SUB 
76400,0 
76400,0 
40200.0 


140200,0 
+25 


;SET UP THE LOOP ON ERROR ADDRESS. 


AC 
“F SRC 
:RES 
sFPS BEFORE EXECUTION. 

FPS AFTER EXECUTION 


ZERROR RESULT 
;RESULT BAD. 


FSRC POSITIVE AND IN ROUND MODE. 
;SET UP THE LOOP ON ERROR ADDRESS. 


ZFSRC 


RES 
“FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ERROR RESULT. 
:DIV NORMALIZE FAILURE. 


FSRC POSITIVE. 
SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 

sFSRC 

RES 

sFPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ERROR RES. 


:SIGN BAD. 


greet DIVF WITH BOTH OPERANDS POSITIVE. 


LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 0 
4 
5$: . WORD 
6$: ERROR 
TEST DIVF WITH 
LPERR 
JSR 
1$: . WORD 
23: . WORD 
3$: . WORD 
4$: 3000 
3000 
5$: WORD 
6$: ERROR 
TEST DIVF WITH 
LPERR 
JSR 
1$: . WORD 
23: . WORD 
3$: . WORD 
4$: 1000 
1000 
5$: . WORD 
6$: ERROR 
LPERR 
JSR 
1$: . WORD 
23: . WORD 
3$ . WORD 
4$: , 


PC DIVE SUB 
56777,177777 
54200.0 

42777.177777 





;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 
sFSRC 


RES 
FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
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| CKFPBBO FP11F FLTG PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 17-1 SEQUENCE 
| TEST # 6 = DIVF TEST 
2739 015276 002000 002000 S$: .WORD  2000,2000 ZERROR RES. 
| nes 6$: ERROR +23 
742 sTEST THE DIVF INSTRUCTION: 
5508 015304 CCC5: 
015304 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
015306 °004737 015704 JSR PC ,DIVF SUB 
27645 015312 012377 177777 1$: WORD  12877,177777 =; AC 
2746 015316 012300 000000 2$: "wORD 12300.0 *FSRC : 
2747 015322 040252 125252 3$: "WORD 40252,125252  :RES 
2748 015326 000000 i$: 0 “FPS BEFORE EXECUTION. 
2749 015330 000000 0 | ‘FPS AFTER EXECUTION. 
2750 015332 177777 «177777 5$: “WORD -1,-1 TERROR RES. 
73 015336 104023 6$: ERROR +23 
2753 :TEST DIVIDE ALGORITHM. TEST ROUND CONSTANT. 
2754 015340 CCC6: 
015340 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2755 015342 004737 015704 JSR PC,DIVF SUB 
2756 615346 064600 000001 1$: “WORD  64600,1 AC 
2757 015352 066600 000000 2$: “WORD  66600,0 SF SRC 
2758 015356 036200 000001 3$: "WORD  36200,1 RES : 
2759 015362 000000 i$: 0 *FPS BEFORE EXECUTION. 
A 015364 000000 0 sFPS AFTER EXECUTION. 
2761 015366 003000 003000- 5$: “WORD  3000,3000 TERROR RES. 
276e 015372 104023 6$: ERROR +23 
2764 TEST DIVF 
2765 015374 : 
74 106413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2766 013396 004737 015704 - JSR PC DIVE 
2767 015402 034577 177776 1$: “WORD  34577,177776 ~—- AC 
2768 015406 023400 000000 2$: “WORD  23400,0 *FSRC 
2769 015412 651377 177776 3$: "WORD 51377.177776 :RES 
2770 015416 000017 4$: 17 [FPS BEFORE EXECUTION. 
2771 015420 000000 0 “FPS AFTER EXECUTION. 
2772 015422 003400 003400 S$: “WORD  3400,3400 TERROR RES. 
3773 015426 104023 6S: ERROR +23 
2775 
2776 :DIVF TEST. 
2777 015430 cCCc8: 
015430 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2778 015432 004737 015704 JSR PC,DIVF SUB 
2779 015436 067652 125252 1$: “WORD 67652,125252 ~—-: AC 
2780 015442 056500 000000 2$: “WORD  56500,0 *FSRC 
2781 015446 051343 107070 3$: "WORD 51343.107070 RES 
2782 015452 000000 4s: 0 *FPS BEFORE EXECUTION. 
2783 015454 000000 0 ‘FPS AFTER EXECUTION. 
2784 015456 051543 107070 5$: .WORD  51543,107070 ERROR RES. 
2785 015462 104026 6$: ERROR +26 ‘DIDN'T INCREMENT THE EXPONENT 
2786 SAFTER DIVID NORMALIZATION. 
2788 sDIVF WITH AC NEGATIVE, FSRC NEGATIVE. 
2789 015464 CCC9: 
015464 104 :SET UP THE LOOP ON ERROR ADDRESS. 


413 LPERR 
2790 015466 004737 015704 JSR PC ,DIVF SUB 








2804 36 
2805 015542 
2806 015544 
2807 015546 
2808 015552 
2809 


2810 
2811 015554 
015554 
2812 015556 
2813 015562 
2814 015566 
2815 015572 
2816 015576 
2817 015600 
2818 015602 
2819 015606 


2831 015642 

2832 

2833 

2834 015644 
075644 

2835 015646 

836 


2842 015676 
2843 
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00000 
125253 


125253 


015704 
000000 
000000 
000000 


000000 


015704 
000000 
000000 
125253 


125253 


015704 
000001 
000000 
000000 


000001 


015704 
000001 
000000 
000001 


000000 


ce ae eet ee a 
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MACRO M1113. 28-MAR=81 14:47 PAGE 17-2 SEQUENCE 63 
1$: .WORD 140400,0 ZAC 
2$: "wORD  140500.0 *FSRC 
3$: "WORD  040052.125253 RES 
i$: 0 [FPS BEFORE EXECUTION. 
0 ‘FPS AFTER EXECUTION. 
5$: “WORD 140052,125253 ERROR RES. 
é$: ERROR +27 ‘BAD SIGN. 
DIVE WITH AC NEGATIVE AND FSRC POSITIVE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC DIVF SUB 
1$: . WORD 166077 0 AC 
2$: * WORD 4027 7,0 SF SRC 
3$: "WORD 16000 56-0 RES 
48: ¢ 7? [FPS BEFORE EXECUTION. 
10 ‘FPS AFTER EXECUTION, 
5$: .WORD  60000,0 TERROR RES. 
6$: ERROR +27 ‘BAD SIGN. 
:DIVE WITH AC POSITIVE AND FSRC NEGATIVE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,DIVF SUB 
1$: “WORD  40400,0 AC 
2$: "WORD  140500,0 SF SRC 
3$: "WORD  140052.125253 RES 
4$: i7 ‘FPS BEFORE EXECUTION. 
10 ‘FPS AFTER EXECUTION. 
5$: “WORD 40052,125253 ERROR RES. 
6$: ERROR +27 ‘BAD SIGN. 
TEST DIVF BOTH OPERANDS POSITIVE AND TRUNCATE MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC DIVE SUB 
1$: “WORD 60100,1 ZAC 
2$: "WORD 40300.0 *FSRC 
3$: "WORD  60000,0 RES 
4$: 52 [FPS BEFORE EXECUTION. 
40 “FPS AFTER EXECUTION. 
5$: “WORD  60000,1 TERROR RES 
63: ERROR +30 * TRUNCATION ERROR 
DIVE WITH POSITIVE OPERANDS AND ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,DIVF SUB 
1$: “WORD 60100,1 AC 
2$: "WORD 40300,0 — SFSRC 
3$: "WORD  60000,1 RES 
4$: e ‘FPS BEFORE EXECUTION. 
0 ‘FPS AFTER EXECUTION. 
5$: “WORD  60000,0 ZERR OR RES. 
: +31 [ROUND ERROR. 


--—--——_—_ —} 
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CKFPBBO FP11F FLTG PNT PRT B MACRO M1113 28-MAR=-81 14:47 PAGE 17-3 SEQUENCE 64 
TEST # 6 = DIVF TEST 


43 015700 000137 016130 JMP CCCDONE ;GO TO NEXT TEST. 
2846 ;THIS SUBROUTINE, DIVFSUB, IS CALLED TO SET UP, EXECUTE 
oe sAND CHECK THE RESULT OF A DIVF INSTRUCTION. IT IS CALLED THUS: 
2849 ; R PC ,DIVF SUB 
2850 3 ACARG: .WORD X,X 3AC_OPERAND 
2851 ; FSRCARG:.WORD X,X zFSRC_OPERAND 
2852 ; RES: «WORD X,X EXPECTED RESULT 
2853 ; FPSB: .WORD  X 7FPS BEFORE EXECUTION 
2854 ; FPSA: .WORD xX FPS AFTER EXECUTION 
2855 ; ERRES: .WORD X,X ERROR RESULT 
2856 $ ERR: ERROR +X RESULT ERROR 
seen : CONT ‘ ;RETURN ADDRESS 
2859 :THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
2860 7FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, DIVF IS EXECUTED. 
2861 sAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
2862 ZEXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
2863 71S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
2864 : INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
2865 :1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
2866 :THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED T 
2867 THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
:THEN THE FAILURE IS REPORTED IN DIVFSUB AND CONTROL IS PASSED TO 

2869 :CONT. IF NO ERRORS ARE DETECTED THEN DIVFSUB RETURNS CONTROL 
on TO CONT. 
2872 015704 012601 DIVF SUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
2873 015706 012700 000200 MOV #200,RO ;SET FD MODE. 
2874 015712 170100 LDFPS RO 
2875 015714 010100 MOV R1,RO ;LOAD THE AC OPERAND. 
2876 015716 172410 LDD (RO) ,ACO 
2877 015720 016100 000014 MOV 14(R1) ,RO ;LOAD THE FPS 
2878 015724 170100 LDFPS RO 
2879 015726 012737 015742 001236 MOV #1$,$TMP2 
2880 015734 010100 MOV R1,RO 
a4 015736 062700 000004 ADD #4 ,RO ESTABLISH A POINTER TO FSRC. 
oer 015742 174410 1$: DIVF (RO) ,ACO TEST INSTRUCTION. 
2885 015744 170204 STFPS R4 ;GET THE FPS. 
2886 015746 012700 000200 MOV #200,R0 ;SET FD MODE 
44 015752 170100 LDFPS RO 
2889 015754 012700 016120 MOV ADIVFT,RO GET THE RESULT OF THE DIVF. 
Soot 015760 174010 STD ACO, (RO) 
2892 015762 010102 MOV R1,R2 ;SAVE THE DATA IN CASE OF ERROR. 
2893 015764 010237 001240 MOV R2,$1MP3 
2894 015770 062702 000004 ADD #4,R 
2895 015774 010237 001242 MOV R2,$TMP4 
2896 016000 062702 000004 ADD ’ 
2897 016004 010237 001244 MOV R2,$TMP5 

016010 012737 016120 001246 MOV #DIVFT ,STMP6 
2899 016016 010437 001250 MOV R4,$TMP7 

016022 016137 000016 001252 MOV 16(R1),$1TMP10 
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TEST # 6 = DIVF 





016030 021061 00010 CMP = (RO), 10(R1) 1S THE RESULT CORRECT? 
2903 016034 001011 BNE :1F INCORRECT BRANCH. 
2904 016036 026061 000002 000012 CMP = 2(RO) , 12(R1) 
2905 016044 001005 BNE 108 
2907 016046 026104 000016 CMP =: 16(R1) , Rd ;1S FPS CORRECT? 
016052 001020 BNE  15$ ;1F INCORRECT BRANCH. 
2909 016054 000161 000026 JMP = 26(R1) ;1F NO ERRORS OCCURRED RETURN. 
2911 016060 021061 000020 108: CMP —- (RO), 20R1) ;DOES THE INCORRECT RESUL 
2912 01 001010 BNE {MATCH THE ANTICIPATED INCORRECT RESULT. 
2913 01 026061 000002 000022 (MP =. 2(RO) ,22(R1) 
2914 016074 001 BNE 118 ;BRANCH IF NO. 

916 016076 010102 Mov —-R1,,R2 ;1T MATCHED SO RETURN TO THE ERROR 
2917 REPORT AT THE CALLING ROUTINE. 
2918 016100 062702 000024 ADD #24, R2 
2919 016104 000112 JMP  (R2) 

2921 016106 118: ;REPORT RESULT INCORRECT. 
2922 016106 104023 12$: ERROR +23 
2923 016110 000161 000026 13$:  JMP —-26(R1) 

25 016114 15$: ;REPORT FPS INCORRECT. 
2926 016114 104032 16$: ERROR +32 
2927 016116 000774 R 138 
2929 016120 000000 000000 000000 DIVFT: .WORD 0.0.0.0 
2931 016130 CCCDONE : 

016130 104412 RSE TUP ;GO_ INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

7; THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


B 
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TEST # 7 = DIVD TEST 





2941 _SBITL TEST # 7 = DIVD TEST 
FERRARA REAR EEE R AER AER EAE EERE ER ERE EES 
S*TEST 7 DIVD TEST 
** 
‘THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
“USED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE RESULTS. 
** 
SERRE RRR EERE RRR EER IE 
. 016132 000004 1ST7: SCOPE 
2943 :DIVD TEST WITH POSITIVE OPERANDS AND IN ROUND MODE. 
2944 016134 DDD1: 
016134 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2945 016136 737 016624 JSR PC,DIVDSUB 
2946 016142 034277 000000 000000 1S: “WORD  34277,0,0,0 AC 
5947 016152 040277 000000 000000 2$: "WORD 40277,0.0.0 ‘FSRC 
2948 016162 034200 000000 3$: "WORD  34200.0.0.0 SRES 
9 016172 200 4$: 200 sFPS BEFORE EXECUTION. 
2950 016174 200 200 ‘FPS AFTER EXECUTION. 
5951 016176 177777 177777 #177777 «S$: “WORD =1,-1,-1,-1 ‘ERROR RES. 
2952 O1e206 104038 6$: ERROR +33 
2954 :DIVD WITH AC NEGATIVE AND FSRC POSITIVE IN TRUNCATE MODE. 
2955 016210 : 
016210 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2956 016212 004737 016624 JSR PC,DIVDSUB 
5957 016216 134277 000000 000000 1$: “WORD 1364277,0,0,0 ;AC 
2958 016226 040277 000000 000000 28: "WORD 40277,0,0,0 :FSRC 
3959 016236 134200 000000 000000 3$: "WORD 134200,0,0,0 RES 
2960 016246 207 4$: 307 ‘FPS BEFORE EXECUTION. 
2961 016250 210 210 *FPS AFTER EXECUTION. 
5962 016252 177777 (177777 (177777 + ‘5$: “WORD -1,-1,-1,-1 TERROR RESULT. 
2963 016262 104033 6$: ERROR +33 
2965 :DIVD TEST WITH OPERANDS BOTH NEGATIVE AND IN TRUNCATE MODE. 
2966 016264 DDD3: 
016264 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2967 016266 004737 016624 JSR PC,DIVDSUB 
5968 016272 134300 000000 000000 1$: “WORD 134300,0,0,1 —:AC 
3969 016302 140300 000000 900000 2$: "WORD 140300,0,0,0  ;FSRC 
2970 016312 034200 000000 000000 3$: "WORD  34200,0,0,0 RES 
2971 016322 000250 4$: 350 “FPS BEFORE EXEC'ITION. 
2972 016324 000240 240 tFPS AFTER EXECU/ ION. 
3973 016326 034200 000000 000000 5$: “WORD  34200,0,0,1 “ERROR RES. 
297 016 104035 63: ERROR +35 ‘ TRUNCATION ERROR. 
2976 :DIVD WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
2977 016340 : 
016340 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2978 016342 004737 016624 JSR PC ,DIVDSUB 
5979 016346 034300 000000 000090 1$: “WORD  34300,0,0,1 ZAC 
2980 016356 140300 000000 000000 2%: "WORD 140300,0,0.0  :FSRC 
2981 016 134200 000000 000000 3$: "WORD 134200.0.0.1  :RES 
2982 016376 000207 4$: 307 ‘FPS BEFORE EXECUTION. 
2983 016400 000210 210 “FPS AFTER EXECUTION. 
84 016402 134200 000000 000000 5$: “WORD 134200,0,0,0 ERROR RES. 
2985 016412 104036 6s: ERROR +36 


;ROUND ERROR. 
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016624 
000000 


000000 
125252 
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177777 


177777 
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:DIVD TEST. ‘ 
DDDS: 
LPERR 
JSR PC,DIVDSUB 
000000 1$: “WORD  100400,0,0,0 
000000 2$: “wORD- 500,0,0,0 
3$: "WORD 140052,125252 
"WORD 125252,125252 
4$: 7647 
7650 
177777 5$: “WORD -1,-1,-1,-1 
é$: ERROR +33 


sDIVD TEST WITH AC POSITIVE AND 
DDD6: 


LPERR 
JSR PC,DIVDSUB 
000000 1$: “WORD 400,0,0,0 
000000 2$: “wORD  100500,0,0,0 
3$: "WORD 140052.125252 
: 125252,125253 
4$ 7707 
7710 
177777 5$: “WORD =1,-1,-1,-1 
6$: ERROR +33 
:DIVD TEST. 
DD7: 
LPERR 
JSR PC, DIVDSUB 
1$: “WORD  170360,170360 
"WORD  170360.170360 
2$: "WORD  170360.170360 
"WORD  170360,170360 
000000 38: "WORD  40200,0,0, 
4$: 7717 
7700 
177777 5$: “WORD -1,-1,-1,-1 
6$: ERROR +33 


SEQUENCE 
SET UP THE LOOP ON ERROR ADDRESS. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 


FSRC NEGATIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

sFSRC 
sRES 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 


;SET UP THE LOOP ON ERROR ADDRESS. 
3AC 

3; FSRC 

RES 

3FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ERROR RES. 


JMP DDDDONE ;GO TO NEXT TEST. 


;THIS SUBROUTINE, DIVDSUB, IS CALLED TO SET st EXE 


XECUTE 
IS CALLED THUS: 


zAND CHECK THE RESULT OF A DIVD INSTRUCTION. 

: JSR PC,DIVDSUB 

5 ACARG: . KX XM 3AC_OPERAND 

: FSRCARG:.WORD X,X,X,X 3FSRC OPERAND 

: RES: «WORD = X,X,X,X EXPECTED RESULT 

: FPSB: .WORD X 3FPS BEFORE EXECUTION 
; FPSA: .WORD X FPS AFTER EXECUTJON 
; ERRES: .WORD X,X,X,X ERROR RESULT 

; ERR: ERROR +X RESULT ERROR 





RETURN ADDRESS 
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TEST # 7 = DIVD TEST 


ZTHE OPERANDS ARE SET UP (USING aco FOR THE A® OPERAND). THEN 
‘FPSB 1S LOADED INTO THE FPS, THE INSTRUCTION, DIVD IS EXECUTED. 


SEER 


CKFPB8O _FPIIF FLTG ~ PRT B 
TEST # 7 = DIVD TEST 


E 6 
MACRO M1113 28-MAR=81 14:47 PAGE 19 SEQUENCE 69 


3044 yAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
3045 SEXPECTED CORRECT RESULT, RES. IF IT_IS CORRECT THEN THE FPS 
31S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 


| 
| 
3646 
| 


3047 TINCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
3048 [1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
3049 [THE INCORRECT RESULT MATCHED ERRES {HEN CONTROL IS PASSED TO 
3050 ‘THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
3051 ‘THEN THE FAILURE IS REPORTED IN DIVDSUB AND CONTROL IS PASSED [0 
3052 “CONT. IF NO ERRORS ARE DETECTED THEN DIVDSUB RETURNS CONTROL 
3093 [TO CONT. 
3055 016624 012601 DIVDSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
016626 012700 000200 MOV #200,RO ;SET FD MODE. 
3057 016632 170100 LDFPS RO 
3059 016634 010100 MOV R1,RO :SET UP THE ACO OPERAND. 
016636 172410 LDD (RO) , ACO 
3061 016640 016100 000030 V 30(R1) ,RO ZLOAD THE FPS. 
3062 016644 170100 LOFPS RO 
3064 016646 012737 016662 001236 MOV #1$,$TMP2 
3065 016654 010100 MOV R1,RO ;ESTABLISH A POINTER TO FSRC. 
2066 016656 062700 000010 ADD #10,R0 
3068 016662 174410 1$ DIVD (RO) ,ACO ZEXECUTE THE TEST INSTRUCTION. 
3070 016664 170204 STFPS R4 :GET THE FPS. 
3071 016666 012700 000200 V #200,RO 7SET FD MODE. 
3072 016672 170100 LDFPS RO 
3074 016674 012700 017054 MOV #DIVDT,RO :GET THE RESULT. 
3075 016700 174010 STD ACO, (RO) 
3077 016702 010102 MOV R1,R2 ;SAVE DATA IN CASE OF ERROR. 
3078 016704 010237 001240 MOV R2.$TMP3 
3079 016710 062702 000010 ADD #10,R2 
80 016714 010237 001242 MOV R2,$TMP4 
3081 016720 062702 000010 ADD #10,R2 
3082 016724 010237 001244 MOV R2,$TMP5 
3083 016730 012737 017054 001246 MOV #DIVDT.STMP6 
3084 016736 010437 001250 MOV R4,$TMP7 
3085 016742 016137 000032 001252 MOV 32(R1),$TMP10 
3087 016750 010102 MOV R1,R2 sCHECK THE RESULT. 
3088 016752 062702 000020 ADD #20,R2 
3089 016756 012703 017054 MOV #DIVDT, R3 
3090 016762 012705 000004 MOV R5 
3091 016766 022223 2$: CMP (Rode, (R3)* 
3092 016770 001006 BNE 10$ ;BRANCH IF RESULT INCORRECT. 
3098 016772 077503 S08 R5, 2% 
3095 016774 026104 000032 CMP 32(R1) ,R4 :1S FPS CORRECT? 
3096 017000 001023 BNE 15$ ‘BRANCH IF INCORRECT. 
3097 017002 000161 900046 JMP 46(R1) RETURN. 
3099 017006 010102 10$: MOV R1,R2 :WAS INCORRECT RESULT ANTICIPATED? 
3100 017010 062702 000034 ADD #34 ,R2 
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17014 012703 017054 


0 

0 012705 C00G04 
0 022223 

017030 001005 
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—_—_—____— 
NS SOIRARAW=SSRIEARALS 


000044 
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000046 


000000 900000 
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eh aed od cad wed od ced ed 


(SS a 


11$: 


DIVDT: 


DDDDONE : 
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#DIVDT,R3 
#4,R 
(R2)+,(R3)+ 
12 


3 
46(R1) 


+34 
14$ 


0.0,0,0 


SEQUENCE 


;BRANCH IF NO. 


z1F THE INCORRECT RESULT WAS 
SANTICIPATED RETURN TO THE 
ERROR REPORT IN THE CALLING 
[ROUT INE. 


REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


3GO INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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3132 


INWWIANWNINIANW NWNNW 
NNNNNO 
RANISS BLEAF 


N 
w 
oS 
-s 
N 
N 
> 
N 


TEST 


000000 
140177 


017650 
000000 
000000 
000000 


177777 


017650 
034435 
000000 


000000 


177777 
017650 
177777 


017650 


00 
177777 
177777 


177777 
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TEST # 10 = MULF TEST 


° RRA AAA EAR EERE RAE REE RERERERE RARER ERAAREHERTEAA HAE 


S*TEST 10 


i 
s*THIS IS A TEST OF THE MULF INSTRUCTION. IT MAKES USE OF A SUBROUT I NE 


MULF TEST 


**TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 


° RRR EEE REE EEE EAA EEE ERATE REREREEEE REE HHEERERE 


sMULF WITH (FSRC=AC=0) 
EEE1: 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,MULF SUB 

0,0 ZAC 

0.0 sF SRC 

‘ RES 

7FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION, 

-1,-1 

+37 


;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,MULF SUB 
71625, 34435 sAC 
0,0 sF SRC 
sRES 
sFPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ERROR RES. 


-1,-1 
+3 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,MULF SUB at 


0,0 3 
071625.153443 :FSRC 
0.0 


- RES 
:FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
_ sERROR RES. 
+ 


POSITIVE AND FSRC POSITIVE IN ROUND MODE. 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC .MULF SUB 


40200,0 ZAC 
40177.=1 *F SRC 
40177.=1 


sRES 
cFPS BEFORE EXECUTION. 


s*RESULTS. 
TST10: SCOPE 
LPERR 
JSR 
1$: . WORD 
2$: .~ WORD 
3$: . WORD 
4$: 7517 
7504 
5$ . WORD 
6$ ERROR 
:MULF WITH (FSRC=0). 
t<¢cs 
LPERR 
JSR 
1$: . WORD 
2s: WORD 
3$: .~ WORD 
4$: 13 
4 
5$ . WORD 
6$ ERROR 
sMULF WITH (AC=0) 
LPERR 
JSR 
1$: . WORD 
es: . WORD 
3$: . WORD 
4$: 7500 
7504 
5$: . WORD 
6$: ERROR 
‘eye WITH AC 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4%: 17 
5$ WORD 


FPS AFTER EXECUTION, 


160177,<1 TERROR RES. 


Gro = ote ee 
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TEST # 10 = MULF TEST 


SEQUENCE 


3178 017266 106041 6$: ERROR +41 ;BAD SIGN. 
3178 :MULF WITH AC POSITIVE AND FSRC POSITIVE IN TRUNCATE MODE. 
3179 017250 FEES: 
| 017250 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3180 017252 004737 017650 JSR PC ,MULF SUB 
3181 017256 040177 177777 1$: “WORD 40177,-1 AC 
3182 017262 040200 000000 2$: “wORD  40200,0 =F SRC 
| 3183 017266 040177 177777 %$: .WORD 40177,-1 RES 
3184 017272 4$: 40 PS BEFORE EXECUTION. 
3185 017274 40 FPS oAF TER EXECUTION. 
3186 017276 037777 177777 S$: .WORD 37777,-1 , * ERROR 
3187 017302 104042 é$: ERROR +42 is! “252. 50" 044 INTO 444 (BUT Y62) 
| 318 . NORMALIZATION FAILURE. 
3190 sMULF WITH BOTH OPERANDS POSITIVE NORMALIZE TEST. 
3191 017304 EEE6: 
017304 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3192 017306 004737 017650 JS PC ,MULF SUB 
3193 617312 040100 000000 1$: “WORD 40100,0 ZAC 
3194 017316 040100 000000 2$: “WORD  40100,0 + FSRC 
3195 017322 040020 000000 3$: “WORD  40020,0 RES 
3196 017326 01 L$: 12 ‘FPS BEFORE EXECUTION. 
3197 017330 00C 0 “FPS AFTER EXECUTION. 
3198 017332 042040 000000 S$: “WORD  42040,0 TERROR RE 
3199 017336 104043 6$: ERROR +43 ‘ST 252 TO 444 INTO 042 (BUT Y62) 
3200 ‘MUL. NORMALIZATION FAILURE. 
320 :MULF WITH BOTH OPERANDS POSITIVE IN ROUND MODE. 
3203 017340 FEE?: 
017340 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3204 017342 004737 017650 JSR PC ,MULF SUB 
3305 017346 017500 000000 1$: “WORD  17500,0 ZAC 
3206 017352 023652 125252 2$: "WORD  23652,125252 *F SRC 
3307 017356 003177 177777 3$: "WORD 3177,-1. RES 
3208 017362 007417 4$: 7417 [FPS BEFORE EXECUTION. 
3209 017364 74 7400 [FPS AFTER EXECUTION. 
3310 017366 177777 177777 S$: .WORD -1,-1 
3211 017372 104037 é$: ERROR +37 
321 :MULF WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
3214 017374 EEEB: 
017374 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3215 017376 004737 017650 JSR PC MULE SUB 
3216 017402 040342 000000 1$: “WORD 40342 ZAC 
3217 017406 176542 000000 23: WORD 19888 ¢5° 0 FSRC 
3218 017412 176707 102000 3$: "WORD  176707.102000 “RES 
3219 017416 4$: 7 [FPS BEFORE EXECUTION. 
3320 017420 000010 10 [FPS AFTER EXECUTION. 
3321 017422 076507 102000 7$: “WORD 76507.102000 ERROR RES. 
3220 017426 104041 6$: ERROR +41 ‘BAD SIGN. 
3224 :MULF WITH AC NEGATIVE AND FSRC POSITIVE IN ROUND MODE. 
3225 017430 FEES: 
017430 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3226 017432 004737 017650 JSR PC ,MULF SUB 
3557 017636 140200 000000 1$: “WORD 140200,0 TAC 
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3228 017442 
3229 017446 
3330 017452 
3233 017462 
| 3234 
3035 
33% 017464 
| 017464 
3237 017466 
3238 017472 
3239 017476 
3240 017502 
3241 017506 
3242 017510 
3243 017512 
3244 017516 
3245 
3246 
3247 017520 
017520 
3248 017522 
3249 017526 
32 7532 


327 7 
3276 017636 
Son 017642 
3279 017644 
3280 


| ee 


TEST 


007417 
107417 
000000 


PRT B 


007417 
007417 


007417 


017650 
000000 
000000 
000000 


000000 


017650 


017650 
000001 
000000 
000001 


000001 


017650 
000000 
000001 
000001 
000002 


020074 
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SEQUENCE 


2$: “WORD 7617,7617 sFSRC 

3$: "WORD 107417,7417 RES 

i$: 0 ‘FPS BEFORE EXECUTION. 
10 ‘FPS AFTER EXECUTION. 

S$: ,WORD 7417,7417 TERROR RES. 

6$: ERROR +41 : ; 

MULE WITH BOTH CPERANDS NEGATIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MULF SUB 

1$: “WORD  144600,0 AC 

2$: "wORD  154000.0 FSRC 

3$: “wORD  60400,0 RES 

4$: i7 “FPS BEFORE EXECUTION. 
0 ‘FPS AFTER EXECUTION. 

5$ “WORD  160400,0 TERROR RES. 

6$ ERROR +41 [BAD SIGN. 

MULF BOTH OPERANDS NEGATIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MULF SUB 

1$: “WORD  140300,0 AC 

2$: “wORD  160000.1 FSRC 

3$: “WORD  60100,2 RES 

i$: i0 [FPS BEFORE EXECUTION. 
0 sFPS AFTER EXECUTION. 

S$ “WORD 60100,1 TERROR RES. 

6$ ERROR +44 ‘ROUND FAILURE. 

iMULe WITH AC POSITIVE AND FSRC NEGATIVE IN TRUNCATE MODE. 
LPER :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MULF SUB 

1$ “WORD  60000,1 AC 

2$ “WORD  140300,0 ‘FSRC 

3$ "WORD  160100.1 RES 

i$: [FPS BEFORE EXECUTION. 
7550 FPS AFTER EXECUTION. 

5$ “WORD  160100,1 TERROR RES 

6$ ERROR +45 : TRUNCATION ERROR. 

MULE WITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MULF SUB 

1$: “WORD  40277,0 ZAC 

2$: “wORD  60000,1 *F SRC 

3$: "WORD 60077.1 RES | 

4$: 14 [FPS BEFORE EXECUTION. 
0 SFPS AFTER EXECUTION. 

5$: .WORD  60077,2 TERROR RES. 

6$: ERROR +44 *ROUND FAILURE. CONSTANT BAD. 
JMP EEEDONE :GO TO THE NEXT TEST. 
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TEST # 10 = MULF TEST 





2281 : THIS SUBROUTINE, MULFSUB, IS CALLED TO SET UP, EXECUTE 

3282 ; AND CHECK THE RESULT OF A MULF INSTRUCTION. IT IS CALLED THUS: 
32 : JSR PC,MULF SUB 
3285 : ACARG: .WORD X,X yAC OPERAND 
3286 : FSRCARG:. WORD X,X 7FSRC OPERAND 

| 3287 ; RES: “WORD X,X yEXPECTED RESULT 
3288 : FPSB: .WORD xX :FPS BEFORE EXECUTION 
3289 : FPSA: .WORD  X ‘FPS AFTER EXECUTION 
3290 : ERRES: .WORD X,X ‘ERROR RESULT 
3291 : ERR: ERROR +X “RESULT ERROR 
3298 ; CONT: “RETURN ADDRESS 
3294 + THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
3295 ‘FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULF is EXECUTED. 
3296 TAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST T 
3297 SEXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN. THE FPS 
3298 71S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
3299 S INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
3300 °1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
3301 ‘THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
3302 ‘THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
3303 ‘THEN THE FAILURE IS REPORTED IN MULFSUB AND CONTROL IS PASSED TO 
3304 “CONT. IF NO ERRORS ARE DETECTED THEN MULFSUB RETURNS CONTROL 
fanz ‘TO CONT. 
3307 017650 012601 MULF SUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
3308 017652 012700 000200 MOV #200,RO :SET FD MODE. 
3309 017656 170100 LDFPS RO 
3310 017660 010100 MOV R1,RO :LOAD THE AC OPERAND. 
3311 017662 172410 LDD (RO) ,ACO 
3312 017664 016100 000014 MOV 14(R1),RO sLOAD THE FPS 
3318 017670 170100 LDFPS RO 
3314 017672 012737 017706 001236 MOV #1$,$TMP2 
3315 017700 010100 MOV R1,RO 
3316 017702 062700 090004 ADD #4,R0 sESTABLISH A POINTER TO FSRC. 
3318 017706 171010 1$: MULF (RO) ,ACO : TEST INSTRUCTION. 
3320 017710 170204 STFPS 4 :GET THE FPS. 
3321 017712 012700 000200 MOV #200,RO *SET FD MODE 
3322 017716 170100 LDFPS RO 
3324 017720 012700 020064 MOV #MULFT,RO 3GET THE RESULT OF THE MULF. 
3320 017724 174010 STD ACO,(RO) 
3327 017726 010102 MOV R1,R2 sSAVE THE DATA IN CASE OF ERROR. 
3328 017730 010237 001240 MOV R2.$TMP3 
3329 017734 062702 000004 ADD #4-R2 
3330 017740 010237 001242 MOV R2.$TMP4 
3331 017744 062702 000004 ADD #4,R2 
3332 017750 010237 001244 MOV R2.$TMP5 
3333 017754 012737 020064 001246 MOV #MULFT,.STMP6 

334 017762 010437 001250 MOV R4,$TMP7 

3335 017766 016137 000016 001252 MOV 16(R1),$TMP10 


3336 
3337 017774 021061 000010 CMP (RO), 10(R1) 31S THE RESULT CORRECT? 





Pane yaar emresrccarcae RENEE 


K 6 
ee FPIIF yy PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 20-4 SEQUENCE 75 
TEST # 10 = TEST 


3338 020000 001011 BNE 10$ z1F INCORRECT BRANCH. 
| 3339 020002 026061 600002 000012 CMP 2(RO),12(R1) 
eect 020010 001005 BNE 10$ 
3342 020012 026104 000016 CMP 16(R1) ,R4 31S FPS CORRECT? 
3343 020016 061020 BNE 15$ SIF INCORRECT BRANCH 
Sere 020020 000161 000026 JMP 26(R1) IF NO ERRORS OCCURRED RETURN. 
3346 020024 021061 000020 10$: CMP (RO) ,20(R1) ;DOES THE INCORRECT RESUL 
3347 020030 001010 BNE 11% ;MATCH THE ANTICIPATED INCORRECT RESULT. 
3348 020032 026061 000002 000022 CMP 2(RO) ,22(R1) 
3349 020040 001004 BNE 11$ ;BRANCH IF NO. 
3351 020042 010102 MOV R1,R2 31T MATCHED SO RETURN TO THE ERROR 
3352 ;REPORT AT THE CALLING ROUTINE. 
3353 020044 062702 000024 ADD #24 ,R2 
$366 020050 000112 JMP (R2) 
3356 020052 11$ REPORT RESULT INCORRECT. 
3357 C20052 104037 12$: ERROR +37 
bee 020054 000161 000026 13$: JMP 26(R1) } 
3360 020060 15$: J REPORT FPS INCORRECT. 
3361 020060 104040 16$: ERROR +40 
tack 020062 000774 BR 13$ 
tse 020064 000000 000000 000000 MULFT: .WORD 0,0,0,0 
3366 020074 EEEDONE : 
020074 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

[THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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TEST # 11 = MULD TEST 
3377 .SBITL TEST # 11 = MULD TEST 
PARA AA AAA AAA AREA AAA AAAAT TARA AAA ARR E RARER EEAEEEEERERAERAAAAA AHS 
;*TEST 11 MULD TEST 


°* 

:*THIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
:*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
s*CHECK THE RESULTS. 

a 


° 
RRR EE EEE E EE REERAREEERAEAAAAEEERARETAEAEREREREEEe 


— 020076 000004 TST11: SCOPE 
3379 :MULD TEST WITH AC POSITIVE AND FSRC POSITIVE. 
3380 020100 FFF 1: 
020100 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
3381 020102 004737 020364 JSR PC ,MULDSUB 
3382 020106 040200 000000 000000 1$: -WORD 40200,0,0,0 3AC 
3383 020116 023777 177777 177777 2$: .WORD 23777,-1,-1,-1 ;FSRC 
3384 020126 023777 177777 177777 « 3$: «WORD 23777,-1,-1,-1 ;RES 
3385 020136 000217 4$: 217 sFPS BEFORE EXECUTION. 
3386 620140 000200 200 :FPS AFTER ECECUTION. 
3387 020142 023777 177777 000000 5$: WORD 23777,-1,0,0 ERROR RES. 
3388 020152 104047 6$: ERROR +47 sBAD CONSTANT USED IN ALGORITHM 
Seon USED 24 INSTEAD OF 56. 
3391 :MULD TEST WITH BOTH OPERANDS POSITIVE TRUNCATION TEST. 
3392 020154 FFF2: . 
020154 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
3393 020156 004737 020364 JSR PC ,MULDSUB 
3394 020162 065400 000000 000000 1$: .WORD 65400,0,0,1 3AC 
3395 020172 037577 177777 177777 2$: .WORD 37577,-1,-1,-2 ;FSRC 
3396 020202 064777 177777 177777 38: «WORD 64777,-1,-1,-1 ;RES 
3397 020212 000247 4$: 247 FPS BEFORE EXECUTION. 
3398 020214 000240 240 sFPS AFTER EXECUTION. 
3399 020216 065000 000000 000000 S$: .WORD 65000,0,0.,0 ERROR RES. 
ts 020226 104050 6$: ERROR +50 ; TRUNCATION ERROR. 


3402 guid TEST WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 


30 104413 LPERR : ;SET UP THE LOOP ON ERROR ADDRESS. 
3404 020232 004737 020364 JSR PC MULDSUB 
5 020286 137577 177777 177777 1$: “WORD 137577,-1,-1,-2 :AC 
3406 020246 165 000000 000000 2$: "WORD  165400.0,0,1 *F SRC 
3407 020256 065000 000000 000000 3$: "wORD  65000,0,6,0 RES 
3408 020266 007717 4$: 7717 [FPS BEFORE EXECUTION. 
3409 020270 007700 7700 ‘FPS AFTER EXECUTION. 
3410 020272 064777 177777 177777 5$: “WORD  64777,-1,-1,-1 ERROR RES. 
3411 020302 104051 és: ERROR +51 SROUND ERROR. 
3413 :MULD TEST WITH-AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
3414 020304 FFFG: 
020304 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
3415 020306 004737 020364 JSR PC ,MULDSUB 
3416 020312 017500 0 000000 1$: “WORD  17500,0,0,0 AC 
3417 020322 123652 125252 2$: "WORD 123652,125252  :FSRC 
3418 020326 125252 125252 "WORD 125252.125252 
3419 020332 103177 177777 177777 38: “WORD 103177.-1,-1,-1 ;RES 
3420 020342 000200 4$: 200 ‘FPS BEFORE EXECUTION. 
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3421 020344 
3422 020346 
3423 020356 
3424 


3425 020360 


KEFEREKEKELE 


2 
3453 020364 
3454 020366 
3455 020372 
3456 
3457 020374 
3458 020376 


3470 020432 
3471 
3472 020434 
3473 020440 
347 


4 
3475 020442 
3476 020444 
3477 020450 
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000210 
103200 
104052 


000137 


012601 
012700 


012737 
010100 
2700 


171010 


PRT B 


600000 


020624 


000200 


000030 


020422 
000010 


000200 


020614 


001240 
000010 
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000000 


001236 


SEQUENCE 


210 “FPS AFTER EXECUTION. 
5$: “WURD 103200,0,0,0 ZERR OR RES. 
6$: ERROR +52 “ROUND ERROR (BAD CONSTANT). 
JMP FFF DONE 
: THIS SUBROUTINE, MULDSUB, IS CALLED TO SET UP, EXECUTE 
AND CHECK THE RESULT OF A MULD INSTRUCTION. IT IS CALLED THUS: 
: JSR PC ,MULDSUB 
: ACARG: WORD X,X,X,X AC OPERAND 
: FSRCARG:.WORD X.X.X.X ‘FSRC OPERAND 
: RES: “WORD X,X,X,X ‘EXPECTED RESULT 
: FPSB: :WORD xX ‘FPS BEFORE EXECUTION 
: FPSA: .WORD xX ‘FPS AFTER EXECUTION 
: ERRES: .WORD X,X,X,X “ERROR RESULT 
: ERR: ERROR +X ‘RESULT ERROR 
; CONT: SRETURN ADDRESS 
:THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULD | IS EXECUTED. 
“AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
“EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
*1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
‘INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
71S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
“THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
“THEN THE FAILURE IS REPORTED IN MULDSUB AND CONTROL IS PASSED TO 
“CONT. IF NO ERRORS ARE DETECTED THEN MULDSUB RETURNS CONTROL 
:TO CONT. 
MULDSUB : MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
MOV #200,RO ;SET FD MODE. 
LDFPS RO 
MOV R1,RO :SET UP THE ACO OPERAND. 
LDD (RO) ,ACO 
V 30(R1) RO sLOAD THE FPS. 
LDFPS RO 
MOV #1$,$TMP2 } 
MOV R1,RO s ESTABLISH A POINTER TO FSRC. 
ADD #10,RO 
1$: MULD —- (RO) ,ACO sEXECUTE THE TEST INSTRUCTION. 
STFPS RG :GET THE FPS. 
V #200,RO *SET FD MODE. 
LDFPS RO 


MOV #MULDT ,RO 


:GET THE RESULT. 
STD ACO, (RO) 


MOV R1,R2 :SAVE DATA IN CASE OF ERROR. 
MOV R2.$TMP3 
ADD #10,R2 
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3478 020654 
ses bee 
3481 020470 
3482 020476 
3483 020502 
3484 

3485 9c0218 
3486 020512 
3487 050816 
3488 020522 
3489 020526 
3490 020530 
3491 020532 
3492 

3493 020534 
3494 020540 
3495 020542 
3496 


3497 C20546 


3504 
3505 020574 
3506 
3507 020600 
3508 
3509 020602 
3510 020602 
3511 020604 
: ove 

3513 020610 
3514 020610 
3515 020612 
3516 
3517 020614 
3518 
3519 020624 
020624 
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010237 
062702 
0237 


oo0oo°o 

ai abated 
Ww 
~N 


104412 
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000044 


000046 


000000 
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MOV R2,$TMP4 
ADD #10,R2 
MOV R2,$TMP5 
001246 MOV #MULDT, $TMP6 
MOV R4,$TMP7 
001252 MOV 32(R1),$TMP10 
MOV R1,R2 
ADD #20,R2 
MOV #MILDT,R3 
MOV #4.R5 
2$: CMP (R32) +, (R3)+ 
BNE 10$ 
SOB R5,2$ 
CMP 32(R1),R4 
BNE 1 
JMP 46(R1) 
10$: MOV R1,R2 
ADD #34,R2 
MOV #MULDT,R3 
MOV #4,R5 
11$: CMP (R2)+, (R3)+ 
BNE 12$ 
SOB R5,11$ 
MOV R1.R2 
ADD #44 ,R2 
JMP (R2) 
12$: 
13$: ERROR +246 
14$:  JMP 46(R1) 
15$: 
16$: ERROR +46 
14$ 
000000 MULDT: .WORD 0,0,0,0 
FFFDONE: 
RSETUP 


SEQUENCE 


CHECK THE RESULT. 


;BRANCH IF RESULT INCORRECT. 


71S FPS CORRECT? 
;BRANCH IF INCORRECT. 
RETURN. 


WAS INCORRECT RESULT ANTICIPATED? 


;BRANCH IF NO. 


31F THE INCORRECT “e- WAS 
SANTICIPATED RETURN TO THE 
ERROR REPORT IN THE CALLING 


ROUTINE. 
;REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 


3GO INITIALIZE THE FPS AND STACK; AND 

7SEE IF THE USER HAS EXPRESSED 

+ THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH ~} wena (HAS 
‘THE USER TYPED CONTROL G?) 


TEST TITLE: UNDER/OVERFLOW, USING MULF WITH TRAPS DISABLED 


78 
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TEST # 12 = SEE COMMENT ABOVE FOR TEST T 
3532 


020626 000004 
3533 
534 
3535 020630 
020630 104413 
020632 004737 021054 
3537 020536 020200 000000 
538 020642 020000 
020646 000000 
3540 020652 177777 177777 
3541 020656 000000 
542 02 000004 
3543 020662 000012 
3544 020664 177777 
545 02 10413 


3548 020674 

3549 

3550 

3551 020674 
020674 


3552 020676 37 
3553 020702 010200 000000 
55 06 010000 


3560 30 

3561 020732 104120 

3562 

3563 020734 000401 

3564 020736 

3565 020740 

3566 

3567 

3568 53850 

3569 020742 004737 021054 
060 000000 

3571 020752 060000 000000 
000000 000000 

000000 


3575 020770 000006 
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» SBTTL TEST # 12 = SEE COMMENT ABOVE FOR TEST TITLE 


ERR REE REE EERE RARE RERRRAREREEEEEAEERERAERERERERKEEEEEEE 


:*TEST 12 SEE COMMENT ABOVE FOR TEST TITLE 


eTHIS IS A TEST OF THE OVERFLOW AND UNDERFLOW g-iny USING 
>*THE MULF Bare ae tee WITH TRAPS DISABLED. NOTE THAT A SUBROUTINE 
:*1S USED TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND 
; * CHECK THE RESULTS. 


Py 
 Seenneqanasewedeassdeneeeneneenenehtnnnenennenneeneneentenenent 


TS112: SCOPE 
Lh Pitan, WITH EXPONENT OF RESULT = -129 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, OVUNFNT 

1$: “WORD  20200,0 :AC 

2$: “wORD ~20000,0 ‘FSRC 

3$: “wORD 0,0 RES 

4$: "WORD -1,-1 TERROR RES. 

5$: 0 ‘FPS BEFORE EXECUTION. 
4 “FPS AFTER EXECUTION. 

6$: iF sFEC 

7$: ERROR +117 ‘ST 4831 TO 155 INTO 115 (BUT FIU) 
ERROR +114 

8$: 

{UNDERF LOW. WITH EXPONENT OF RESULT = -193 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,OVUNFNT 

1$: “WORD  10200,0 ZAC 

2$: “wORD  10000,0 ‘FSRC 

3$: “WORD 0, RES 

4$: "WORD  10000,0 TERROR RES. 

5$: 5013 “FPS BEFORE EXECUTION. 
5004 [FPS AFTER EXECUTION. 

6$: 12 TFEC 
of FLAG 

7$: ERROR +120 “SETTING FIUV OR FIV CAUSES TRAP 

‘WITH FIU CLEAR. 

BR 8$ 
ERROR +114 

8$: 

i OVERFLOW, EXPONENT OF RESULT = 128 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, OVUNFNT 

1$: “WORD  60200,0 AC 

2$: “wORD  60000,0 *FSRC 

3$: "wORD 0,0 RES 

i$: "WORD  60000,0 : ERROR RES. 

5$: 0 FPS BEFORE EXECUTION. 
” “FPS AFTER EXECUTION. 


| , , in ncatast , .? 
CKFPBBO FP11F FLTG PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 22-1 


| TEST # 12 = SEE COMMENT ABOVE FOR TEST TITLE 


SEQUENCE 


3576 020772 0000106 6$: 10 FEC 
3577 020774 000000 0 FLAG 
3578 020776 104121 7$: ERROR +121 *$T 333 TO 136 INTO 116 (BUT FIV). 
3579 021000 000401 BR $ 
3580 021002 104113 ERROR +113 
358) 021004 8$: 
3583 _ SOVERFLOW, EXPONENT OF RESULT = 130 
3584 021004 1114: 

021004 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3585 021006 004737 021054 JSR PC, OVUNFNT 
3586 021012 060200 000000 1$ “WORD  60200,0 AC 
3587 021016- 060200 000000 2$ "WORD 60200,0 FSRC 
3588 021022 000000 000000 3$: “wORD 0, RES 
3589 021026 177777 177777 4$: "WORD -1,-1 ‘ERROR RES. 
3590 021032 006011 5$: 6011 ‘FPS BEFORE EXECUTION. 
3591 021034 006006 6006 “FPS AFTER EXECUTION. 
3592 021036 000010 6S: 10 FEC 
3593 021040 000000 0 FLAG 

C2 104122 7$: ERROR +122 ‘SETTING FIUV OR FIU WITH 

sFIV CLEAR CAUSES TRAP. 

3596 021044 000401 8$ 
3597 021046 104113 ERROR +113 
3598 021050 000137 021464 8$: JMP 1] IDONE :GO TO NEXT TEST. 
3601 
3602 : THIS SUBROUTINE, OVUNFNT, IS USED TO SET UP THE OPERANDS, EXECUTE 
3603 :THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
3604 “OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
3605 ‘TO IT IS MADE THUS: 
3607 3 ARG: .WORD x, :AC OPERAND 
3608 : FSRCARG:.WORD X.X ‘FSRC OPERAND 
3609 : RES: “WORD X.X SEXPECTED RESULT 
3610 : ERRES: .WORD X,X sERROR RESULT 
3611 : FPSB:  .WORD xX ‘FPS BEFORE EXECUTION 
3612 : FPSA:. .WORD X ‘FPS AFTER EXECUTION 
3613 : FEC: “WORD X SEXPECTED FEC 
3614 ; FLAG: «WORD x :0/-1,0VER/UNDER FLOW FLAG 
3615 J ERR1: ERROR +X ; TRAP ERROR. 
3616 : CONT 
3617 3 ERR2: ERROR +X :DATA, RESULT ERROR 
3618 : CONT : SRETURN ADDRESS 
3619 
3620 


3621 


:THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

sTHE MULF INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 

*RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
sCOMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNFNT RETURNS CONTROL 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFNT 

*REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 


ZANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

ZTHE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFNT 
‘WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNFNT WILL 
sREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


80 


dD 7 
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TEST # 12 = SEE COMMENT ABOVE FOR TEST TITLE 


3632 :IF A TRAP OCCURS (IT SHOULD NOT) THEN OVUNFNT WILL READ THE FEC. 
3633 ;SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNFNT WILL 
3634 *STORE ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 
3635 sFEC IS NOT THE SAME AS THE ANTICIPATED FEC OVUNFNT WILL REPORT 
3636 :THE ERROR AND RETURN TO CONT. NOTE THAT OVUNFNT USES THE FLAG 
3637 *TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
te ZUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
3640 021054 012601 ‘OVUNFNT : MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
3641 021056 012700 000200 MOV #200,RO ;SET FD MODE. 
94 021062 170100 LDFPS RO m 
3644 021064 010100 MOV R1,RO ;LOAD ACO, OPERAND. 
ae 021066 172410 : LDD (RO) ,ACO 
3647 021070 010102 MOV R1,R2 SAVE THE DATA PATTERNS IN CASE OF 
3648 021072 010237 001240 MOV R2,$TMP3 ;ERROR. 
3649 021076 062702 000004 ADD #4 ,R2 
3650 021102 010237 001242 MOV R2,$TMP4 
3651 621106 062702 000004 ADD #4 ,R2 
3652 021112 010237 001244 MOV R2,$TMP5 
3653 021116 016137 000022 001252 MOV 22(R1) ,STMP10 
st 021124 012737 021454 001246 MOV #OVFNTT ,STMP6 
3656 021132 6100 000020 MOV 20(R1),RO ;LOAD THE FPS. 

57 021136 170100 LDFPS RO 
3658 021140 012737 021162 001236 MOV #1$,$TMP2 
3659 021146 012737 021346 000244 MOV #25$,FPVECT ‘7 enn FP TRAP VECTOR IN CASE 
3661 021154 010100 MOV R1,RO COMPUTE THE ADDRESS OF FSRC. 
see 021156 062700 000004 ADD #4 ,RO 
re 021162 171010 1$: MULF (RO) ,ACO ; TEST INSTRUCTION. 

021164 170204 23: STFPS R4 GET FPS. 

3667 021166 170305 STST R5 GET FEC. 
3668 021170 012700 000200 MOV #200.R0 ;SET FD MODE. 
3669 021174 170100 LDFPS R 
3670 021176 012700 021454 MOV #OVFNTT,RO GET THE RESULT. 
3671 021202 174010 STD ACO, (RO) 
3672 021204 019437 001250 MOV R4,$1TMP7 
gh 021210 010537 001254 MOV R5,$TMP11 
3675 021214 012700 021454 MOV #OVFNTT RO CHECK THE RESULT. 
3676 021220 010102 MOV R1,R2 
3677 021222 062702 000010 ADD #10,R2 
3678 021226 012703 000002 MOV #2,R3 
3679 021232 022022 3$: CMP (RO)+, (R2)+ 
3680 021234 001015 BNE 15$ ;BRANCH IF INCORRECT. 
et 021236 077303 SOB R3,3$ 
3683 021240 026104 000022 CMP 22(R1) ,R4 WAS FPS CORRECT? 
eae 021244 001002 BNE 10$ ;BRANCH IF FPS IS INCORRECT. 
ay 021246 000161 000036 4$: JMP 36(R1) RETURN, TEST COMPLETED. 


3688 REPORT INCORRECT FPS. 





PeEE eA IS, Meee DEN 


— 7 
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TEST # 12 = SEE COMMENT ABOVE FOR TEST TITLE 
%89 021252 005761 000026 10$: TST 26(R1) :WAS THE RESULT OVER OR UNDER FLOW? 
3690 021256 001002 BNE 12$ “BRANCH IF UNDERFLOW. . 
3692 :REPORT FPS BAD AFTER OVERFLOW. 
3693 021260 104111 11$: ERROR +111 
3694 021262 000771 BR 4$ 
3696 021264 12$: :REPORT FPS BAD AFTER UNDERFLOW. 
3697 021264 104112 13$: = o1'6 


3698 021266 000767 
3699 





cs -- 


| CKFPBBO FPT1F FLTG PNT PRT B 


| TEST # 


3701 
3702 021270 


3706 306 
3707 021310 
3708 021312 


| 

| 

| 

| 
3709 
3710 021314 
3711 021316 
3712 021322 
3713 021326 
3714 
3715 021330 
3716 
3717 


3734 021356 


3735 

3736 021362 
3737 021364 
3738 021370 
3739 021372 
3740 021374 
3741 021400 
3742 021402 


3745 021414 
eg 021420 


374 
3708 021422 
ea 021424 


3750 
3751 021430 
3752 
3753 021432 
3754 


3755 
3756 021436 
3757 


# 12 - SEE 


001007 
077303 
010102 

2 


005761 


001002 


104113 
000742 


104114 
000740 


011602 
022702 
001402 
000137 


022626 


010102 
062702 


000112 
005761 


001003 


0621454 


000074 
000002 


000034 
001236 


000026 


021164 
037000 


001236 
000200 
021454 
001254 
000024 
000030 


000026 


16$: 


17$: 


26$: 


27s: 


BNE 


ERROR 
BR 


ERROR 
BR 


F 
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;RESULT gates 
15$: 


#OVFNTT,RO 
R1,R2 

are 

#2,R3 
(RO) +, (R2)+ 
17$ 

R3,16$ 

R1,R2 

#34,R2 

R2,$TMP2 
(R2) 

26(R1) 

19% 

+113 

4$ 


+114 
4$ 


AN FP TRAP OCCURS COME HERE. 
: MO (SP) ,R2 


#2$,R2 
26$ 
FPSPUR 
(SP)+, (SP) + 
R2,$TMP2 

R4 

R5 

are 
#OVFNTT,RO 
ACO, (RO) 


R5,$TMP11 
R5,24(R1) 
27$ 


R1,R2 
#30,R2 
(R2) 


26(R1) 


29$ 


7 
SEQUENCE 83 


SEE IF FAILURE IS ANTICIPATED 
AILURE. 


° 
e 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
:T0 THE ERROR REPORT IN THE CALLING 


RESULT WAS NOT ANTICIPATED 

3S0 ERROR MUST BE REPORTED HERE. 
[FIRST SEE IF ARGUMENTS SHOULD 

SHAVE RESULTED IN OVERFLOW OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
[BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
; OVERFLOW. 


REPORT RESULT INCORRECT, EXPECTING 
; UNDERF LOW. 


:GET ADDRESS OF TRAP 
[WAS THE TRAP DURING THE MULF INSTRUCTION? 


7BRANCH IF YES. 
OTHERWISE 7 ©. aeey A SPURIOUS 


{RESET T THE STACK 

7 SAVE DATA FOR ERROR REPORT. 
T FPS. 

SGET FEC. 

:SET FD MODE. 


7GET THE RESULT. 


WAS THE FEC ANTICIPATED? 
[BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO 
;RETURN TO THE ERROR REPORT OF THE 
CALLING ROUTINE. 


; THE ERROR WAS NOT ANTICIPATED SO 

317 MUST BE git lly HERE. FIRST SEE IF EXPECTED 
TOVERFLOW OR UNDER FLOW. 

SBRANCH IF EXPECTING UNDERF LOW 
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TEST # 12 = SEE COMMENT ABOVE FOR TEST TITLE 


3758 

3759 021440 

grey 021442 

3762 021446 

3763 0214466 

3764 021450 

3765 

3766 021454 

3767 

3768 021464 
021464 


000161 000036 
000000 000000 000000 


288: ERROR +115 
JMP 36(R1) 


29%: 

30$: ERROR +776 
JMP 36(R1) 

OVFNTT: .WORD 0,0,0,0 


1] IDONE : 
RSE TUP 


G 7 
23-1 _ SEQUENCE 


;REPORT TRAPPED ON OVERFLOW WITH Fiv=0 


;RFPORT TRAPPED ON UNDER FLOW WITH F Iu=0 


3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH — (HAS 
THE USER TYPED CONTROL G?) 


ZTEST TITLE:UNDER/OVERFLOW, USING MULD WITH TRAP DISABLED 


84 
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TEST # 13 = SEE COMMENT ABOVE FOR TEST TITLE 


| 3782 .SBTTL TEST # 13 = SEE COMMENT ABOVE FOR TEST TITLE 


bd SRR AREER AERA EEE AAA AERA AA ERERAARAARERARRAAERAERHER EEA S 


SeTEST 13 SEE COMMENT ABOVE FOR TEST TITLE 


* 

z*THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS THAT CAN 
s*ARRISE USING THE MULD INSTRUCTION WITH TRAPS DiSABLED. A SUBROUTINE IS 
z*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
3s*CHECK THE RESULTS. 

-* 


6 
RRA REAR ERARAE EARTH RAEREREREHRERERE 


oe 021466 000004 15713: SCOPE . 
3784 SUNDERFLOW, EXPONENT OF RESULT=-129 
3785 021470 jJd1: 

021470 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3786 021472 004737 022014 JSR PC ,OVUNDNT 
3787 021476 020200 000000 1$: “WORD 20200,0 ZAC 
3788 021502 127272 000000 "WORD 127272,0 
3789 021506 020000 000000 000000 2%: "wORD  20000.0,0.0 SF SRC 
3790 621516 000000 000000 000000 3$: “WORD 0,0,0,0 SRES 
3791 021526 000000 000000 4$: “WORD 0,0 TERROR RES. 
3792 021532 127272 000000 "WORD 127272.0 

; sFPS BEFORE EXECUTION. 

3794 021540 000204 204 “FPS AFTER EXECUTION. 
3795 021542 000012 63: 12 FEC 
3796 021544 177777 ol FLAG 
3797 021546 104131 7$: ERROR +131 *$T 331 TO 155 INTO 115 (BUT FIU) 
3798 021550 000401 BR 8S 

021552 104132 ERROR +132 :ST 115 (BUT FD) 


3799 
3800 021554 8$: 
3801 


3802 ;UNDERF LOW, EXPONENT OF RESULT = -193 
3803 021554 JJJ2: 


021554 104413 LPERR SET UP THE LOOP 9N ERROR ADDRESS. 
021556 004737 022014 JSR PC ,OVUNDNT 
3805 021562 010200 000000 1$: -WORD 10200,0 sAC 
021566 123456 000000 -WORD 123456,0 
3807 021572 01 000000 000000 2$: -WORD 10000,0,0,0 7FSRC 
3808 021602 000000 000000 900000 3$: -WORD 0,0,0,0 zRES 
3809 021612 000000 000000 123456 4$: WORD 0,0,123456.0 ERROR RES 
3810 021622 005213 5$: 5213 3FPS BEFORE EXECUTION. 
3811 021624 5204 5204 FPS AFTER EXECUTION. 
3812 021626 1 6$: 12 sFEC 
3813 021630 177777 1 ZFLAG 
3814 021632 104133 7$ ERROR +133 SETTING FIUV OR FIV BAD. 
3815 021634 00040! 8$ 
3816 636 104132 ERROR +132 3ST 115 (BuT FD) 


021 
Ht 021640 


w 
3 
w 
oO 
Nm 
—_- 
Ww 
& 
8 
©) 
o 
Lal 
w 
nN 
2) 
oO 


000000 
000000 


8$: 
yh hoe EXPONENT OF RESULT = 128 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 


JSR PC,OVUNDNT 
1$ WORD 200, ZAC 


65432, 
2 WORD 60000,0,0,0 3F SRC 
3$: - WORD 9,0, sRES 


3819 
3820 021640 JJJ3: 
021640 104413 
3821 021642 004737 022014 S 
3822 021646 060200 000000 : ‘ 60200,0 ; 
3823 021652 065432 000000 ‘ 32,0 
3824 021656 060000 000000 $: ° 
3825 021666 000000 000000 : 0,0,0.0 


pa eee ee 


85 
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3826 021676 
| 3827 021706 


21724 


3838 021724 

021724 
3839 021726 
384 


022006 
saet 022010 


| TEST # 13 = SEE 


000000 
000200 
0002 


06 
000010 
000000 
104134 
000401 
104135 


000000 


022014 


022424 


1 7 
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065432 


000000 
000009 


- 125252 


4$: «WORD 0,0,65432,0 ERROR RES. 
S$: 200 FPS BEFORE EXECUTION. 
206 [FPS AFTER EXECUTION. 
6$: 10 FEC 
0 sFLAG 
7$: ERROR 4h 3ST 333 TO 136 INTO 116 (BuT Flv) 
- ERROR +135 3ST 116 (BUT FD) 


sOVERFLOW, EXPONENT OF RESULT = 130 
JSS: 


SEQUENCE 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,OVUNDNT 
1$: “WORD  60200,0 AC 
"WORD 125252,6 
2$ “wORD  60200,0,0.0 sF SRC ~ 
3$: "wORD 0,0,0.0 RES 
L$: "WORD 0.0.125252,0 ERROR RES. 
5$: 6211 SFPS BEFORE EXECUTION. 
6206 “FPS AFTER EXECUTION. 
6$: 10 FEC 
0 sFLAG 
7$: ERROR 3136 “SETTING FIUV OR FIV BAD. 
ERROR +135 :ST 116 (BUT FD) 
8$: JMP JJJDONE ;GO TO NEXT TEST 
: THIS SUBROUTINE, OVUNONT, IS USED TO SET UP THE OPERANDS, EXECUTE 
“THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
‘OPERANDS WHICH SHOULD RESULT IN EITHER LER LOW OR UNDERFLOW. A CALL 
‘TO IT IS MADE THUS: 
: ARG: .WORD KML ;AC OPERAND 
: FSRCARG:.WORD X.X.X.X [FSRC OPERAND 
: ES: “WORD X.X.X.X TEXPECTED RESULT 
ERRES: .WORD X.X.X.X TERROR RESULT 
: FPSB: .WORD X [FPS BEFORE EXECUTION 
: FPSA: .WORD X “FPS AFTER EXECUTION 
: FEC: "WORD X EXPECT ED FEC 
; FLAG: .WORD X :0/=1,0VER/UNDER FLOW FLAG 
: ERR1: ERROR +X : ERROR. 
; BR ONT 
: ERR2: ERROR +X :DATA, RESULT ERROR 
; CONT: SRETURN ADDRESS 


THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). 


THEN 


7 THE MULD INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS 


THEN THE 
:RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 


COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDNT RETURNS CONTROL 
[TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OV 


VUNDNT 
SREPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
COMPARED WITH THE 
IF THE FAILURE IN 


SMULD IS INCORRECT, THE INCORRECT RESULT IS C¢ 
sANTICIPATED FAILING DATA PATTERN, ERRES. 


7 THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNDNT 
SWILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 


86 
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| 
| 3882 :RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDNT WILL 
3883 “REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED 10 CONT. 
3aR4 :]F A TRAP OCCURS (IT SHOULD NOT) THEN OVUNDNT WILL READ THE FEC. 
3885 ‘SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNDNT WILL 
3886 :STORE ALL DATA AND TRANSFER CONTRCL TO THE ERROR CALL AT ERR1. IF THE 
. 3gg7 : 1S NOT THE SAME AS THE ANTICIPATED FEC OVUNDNT WILL REPOR 
3888 “THE ERROR AND RETURN TO CONT. NOTE THAT OVUNDNT USES THE FLAG 
3aa9 [TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
Soot ZUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
3892 022014 012601 OVUNDNT : MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
3893 022016 012700 000200 MOV #200,R0 :SET FD MODE. 
3894 022022 170100 LDFPS RO 
3896 022024 010100 MOV R1,RO ZLOAD ACO, OPERAND. 
3897 022026 172410 LDD (RO) ,ACO 
3899 022030 010102 MOV R1,R2 sSAVE THE DATA PATTERNS IN CASE OF 
3900 022032 010237 001240 MOV R2.$TMP3 : Y 
3901 622036 062702 000010 ADD #10,R2 
3902 022042 010237 001242 MOV R2,$TMP4 
3903 022046 062702 000010 ADD #10,R2 
3904 022052 010237 001244 MOV R2,$TMP5 
3905 022056 016137 000042 001252 MOV 42(R1) ,$TMP10 
3906 02 012737 022414 001246 MOV HOVDNTT,STMP6 
3908 022072 016100 000040 V 40(R1),RO :LOAD THE FPS. 
3909 022076 170100 LDFPS RO 
3910 022100 012737 022122 001236 MOV #1$,$1MP2 
3911 022106 012737 022306 000244 MOV #25$,FPVECT :SET UP THE FP TRAP VECTOR IN CASE 
3915 022114 010100 MOV R1,RO0 :COMPUTE THE ADDRESS OF FSRC. 
3914 022116 062700 000010 ADD #10,RO 
3916 022122 171010 1$: MULD (RO) ,ACO :TEST INSTRUCTION. 
3918 022124 170204 28: STFPS RG :GET FPS. 
3919 022126 170305 STST —RS “GET FEC. 
3920 022130 012700 000200 V #200,R0 ‘SET FD MODE. 
3921 022134 170100 LDFPS RO 
3922 022136 012700 022414 MOV #OVDNTT,RO ;GET THE RESULT. 
3923 022142 174010 STD ACO, (RO) 
3924 022144 010437 001250 MOV R4,$TMP7 
3925 022150 010537 001254 MOV R5.$TMP11 
4 3927 022154 012700 022414 ely #OVDNTT RO sCHECK THE RESULT. 
3928 022160 010102 MOV R1,R2 
a 3929 022162 062702 000020 ADD #20,R2 
3930 022166 012703 000004 MOV #4,R 
3931 022172 022022 3$: CMP (RO)+, (R2)+ 
3932 022174 001015 BNE 15$ :BRANCH IF INCORRECT. 
3933 022176 077303 SOB R3,3$ 
3935 022200 026104 000042 CMP 42(R1) RS sWAS FPS CORRECT? 
3936 022204 001002 BNE 10$ “BRANCH IF FPS IS INCORRECT. 
3938 022206 000161 000056 4$: JMP 56(R1) :RETURN, TEST COMPLETED. 
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| 3939 
3940 :REPORT INCORRECT FPS. 
3941 022212 005761 000046 10$: TST 46(R1) :WAS THE RESULT OVER OR UNDER FLOW? 
342 022216 001002 BNE 12$ ‘BRANCH IF UNDERF LOW. 
3944 ;REPORT FPS BAD AFTER OVERFLOW. 
3945 022220 104123 11$: ERROR +123 ; 
3946 022222 000771 BR 
3948 022224 12$: ;REPORT FPS BAD AF TER UNDERFLOW. 
3945 022224 104124 13$: ERROR +124 
3950 022226 000767 BR 4$ 
3952 :RESULT INCORRECT. 
3953 022230 012700 022414 15$: MOV #OVDNTT,RO :SEE IF FAILURE IS ANTICIPATED 
3954. 022234 010102 MOV 1,R2 FAILURE. 
3955 022236 062702 000030 ADD #30,R2 
3956 022242 012703 000004 MOV #4,R3 
3957 022246 022022 16$: CMP (RO) +, (R2)+ 
3958 622250 001007 BNE 17$ :BRANCH IF NOT ANTICIPATED. 
3959 022252 077303 SOB R3,16$ 
3961 022254 010102 -MOV R1,R2 sERROR WAS ANTICIPATED SO RETURN 
3962 022256 062702 000054 ADD #54,R2 ;TO THE ERROR REPORT IN THE CALLING 
3963 022262 010237 001236 MOV R2,$TMP2 [ROUT INE. 
3964 022266 000112 JMP (R2) 
3966 022270 005761 000046 17$: TST 46(R1) :RESULT WAS NOT ANTICIPATED 
3967 *SO ERROR MUST BE REPORTED HERE. 
3968 ‘FIRST SEE IF ARGUMENTS SHOULD 
3969 SHAVE RESULTED IN OVERFLOW OR UNDER 
3970 ‘FLOW BY LOOKING AT THE FLAG. 
3971 022274 001002 BNE 19$ ‘BRANCH IF UNDERFLOW EXPECTED. 
3973 ;REPORT RESULT INCORRECT, EXPECTING 
3974 022276 104125 18$: ERROR +125 * OVERFLOW. 
3975 022300 000742 BR 4$ 
3977 022302 19$: sREPORT RESULT INCORRECT, EXPECTING 
3978 022302 104126 20$: ERROR +126 * UNDEPF LOW. 
3979 022304 000740 BR 4$ 
3981 -1F AN FP TRAP OCCURS COME HERE. 
3982 022306 011602 25$: MOV (SP) ,R2 GET "ADDRESS OF TRAP. 
3983 022310 022702 022124 CMP #2$,R2 ‘WAS THE TRAP DURING THE MULF INSTRUCTION? 
3984 022314 001402 BEQ 26$ ‘BRANCH IF YES. 
3985 022316 000137 037000 JMP FPSPUR OTHERWISE GO REPORT A SPURIOUS 
3987 022322 022626 263: CMP (SP)+, (SP) + sRESET THE STA 
3988 022324 010237 001236 MOV R2,$TMP2 “SAVE DATA POR ERROR REPORT. 
022330 170204 STFPS R4 : : 
3990 022332 170305 STST —RS SGET FEC. 
3991 022334 012700 000200 #200,RO ‘SET FD MODE. 
3992 022340 170100 LDFPS R 
3993 022342 012700 022414 #OVDNTT,RO :GET THE RESULT. 
3994 022346 174010 STD ACO, (RO) 
2995 022350 010537 001254 MOV RS, $TMP11 
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3996 022354 020561 000044 CMP R5,44(R1) sWAS THE FEC ANTICIPATED? 

3397 022360 001004 BNE 27$ ‘BRANCH IF NOT ANTICIPATED. 

3999 022362 010102 MOV R1,R2 sERROR WAS ANTICIPATED SO 

4000 022364 062702 000050 ADD #50,R2 ‘RETURN TO THE ERROR REPORT OF THE 
4001 ; CALLING ROUT INE. 

4902 022370 000112 JMP (R2) 


4 

4004 022372 005761 000026 273: TST 26(R1) ;THE ERROR WAS NOT ANTICIPATED SO 
4005 :1T MUST BE gt a ag FIRST SEE IF EXPECTED 
4005 [OVERFLOW OR UNDER 

rr's14 022376 001003 BNE 29$ BRANCH IF EXPECTING. UNDERF L OW 


4909 ;REPORT TRAPPED ON OVERFLOW WITH FIV=0 

4010 022400 104127 28$: ERROR +127 

re pl 022402 000161 000056 JMP 56(R1) . 

4013 022406 293: ;REPORT TRAPPED ON UNDER FLOW WITH FIU=0 

4014 022406 104130 30$: ERROR +130 

rr SE 622410 000161 000056 JMP 56(R1) 

rr hd 022414 000000 000000 000000 OVDNTT: .WORD 0,0,0,0 

4019 022424 JJJDONE : 

022424 104412 RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS ee ot 

7 THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH oe (HAS 
; THE USER TYPED CONTROL G?) 

4020 

4021 

4022 

4034 


4035 ;TEST TITLE:UNDER/OVERFLOW, USING MULF WITH TRAPS ENABLED 
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j 4036 


; 022426 000004 
4038 
4039 022430 
022430 
4040 022432 004737 022654 
4041 022436 


23 
4044 022452 177777 177777 
002000 


000 
4051 022472 104144 
4052 022474 
4053 


4054 
4055 022474 
022474 104413 
4056 022476 004737 022654 
4057 022502 010127 ASD SDS 


0 
4059 022512 060127 127272 
4060 022516 177777 177777 


4068 022540 

4069 

4070 

4071 022540 
02254 


4072 022542 004737 022654 
125252 


5 
5 
52 
7? 


00 
900036 12 
4076 022562 177777 17 


52 
777 





» SBTTL TEST # 14 = SEE COMMENT ABOVE FOR TEST TITLE 


ORR EERE EEE EERE ERE REE EERE EERE 


;ETEST 14 SEE COMMENT ABOVE FOR TEST TITLE 


STHIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 

**CONDITIONS THAT CAN OCCUR USING THE MULF INSTRUCTION. 

:*A SUBROUTINE IS CALLED TO SET UP THE OPERANDS, 

:* EXECUTE THE MULF INSTRUCTION AND CHECK 

S*THE RESULTS. HERE THE PARTICULAR INTERRUPT, 

S*EITHER OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 
: *OCCUR. 

** . 
SUID III IIR III IIIUICIIIUIOIOIIDIUIDIOIIUIUIDIOIIOIUIOI OR Io iobtt 


TST14: SCOPE 
jUNDERF LOW, EXPONENT OF RESULT = -129 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,OVUNFT 


1$ “WORD 20123,45676 AC 

2$ "WORD 2 FSRC 

3$: "WORD 123,45676 RES 

4$: ~ WORD -1,-1 sERROR RES. 

5$: 2000 sFPS BEFORE EXECUTION, 
102004 FPS AFTER EXECUTION. 

6$: le sFEC 

7$: ERROR +145 ot $31 (BUT FIU) NO TRAP. 
BR 8S 
ERROR +144 

8$: 

om, la EXPONENT OF THE RESULT = -193 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, OVUNF T 

1$: “WORD 10127,127272 —-;AC 

2$: ~WORD 10200,0 sFSRC 

3$: "WORD 60127.127272 RES 

4$: - WORD -1,-1 sERROR RES. 

5$: 7017 3sFPS BEFORE EXECUTION. 
107000 FPS AFTER EXECUTION. 

6$: 12 FEC 

7$: ERROR +146 :$T 137 (BUT FIU) NO TRAP. 
ERROR +144 

8$: 

pOverL ee, EXPONENT OF THE RESULT = 128 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, OVUNFT 

1$: “WORD 60252,125252 =; AC 

2$: "WORD 60000,0 ‘FSRC 

3$: "wORD 000052,125252 ; 

4$: ~ WORD -1,-1 sERROR RES. 


—— ——_— ee ee COC 


SEQUENCE 
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4077 022566 001000 S$: 1000 sFPS BEFORE EXECUTION. 
4078 022570 101006 101006 ‘FPS AFTER EXECUTION. 
4079 022572 10 6$: 10 FEC 
4080 022574 0 iF 
4081 022576 104147 7$: ERROR +147 ‘ST AS 33 (BUT FIV) NO TRAP 
4082 022600 000401 BR oe 
4085 022602 104143 ERROR +143 
022604 83: 
sOVERFLOW, EXPONENT OF RESULT = 130 
4087 022604 KKK5: 
022604 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4088 022606 004737 022654 ' JSR PC ,OVUNFT 
4089 022612 060345 067654 1$: . WORD 60549, 67654 AC 
4090 022616 060200 000000 2$: WORD 0 FSRC 
4091 022622 000345 067654 3$: “WORD $25 67654 TRES 
4092 022626 177777 177777 4$: “WORD =1,-1 “SERROR RES. 
4093 022632 007015 5$: 7015 *FPS BEFORE EXECUTION. 
4094 022634 107002 107002 “FPS AFTER EXECUTION. 
4095 622636 000010 6$: 10 zFEC 
4096 022640 000000 0 iF 
4097 022642 104150 7$: ERROR +150 ‘ST AG 33 (BUT FIV) NO TRAP 
4098 022644 000401 BR 8$ 
099 022646 104143 ERROR +143 
4100 022650 000137 023266 8$: JMP * KKKDONE 
4102 : THIS SUBROUTINE, OVUNFT, IS USED TO SET UP THE OPERANDS, EXECUTE 
4103 7 THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
4104 * OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
4105 :TO IT IS MADE THUS: 
4107 3 ACARG: .WORD x,X sAC OPERAND 
4108 § F SRCARG: .WORD xX sFSRC OPERAND 
4109 : RES: “WORD X,X TEXPECTED RESULT 
10 : ERRES: WORD xx S ERROR RESULT 
111 : PSB: .WORD X ‘FPS BEFORE EXECUTION 
112 : FPSA: WORD X ‘FPS AFTER EXECUTION 
113 : FEC: “WORD X SEXPECTED FEC 
114 : FLAG: ~WORD x :0/-1, OVER/UNDER FROn FLAG ; 
115 s ERR1: ERROR +X : ER 7 4 
116 ; CONT 
117 : ERR2: ERROR +X :DATA, RESULT ERROR 
is 3 CONT: s;RETURN ADDRESS ° 
4120 THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
4121 “THE MULF INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 
4122 *RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
4123 “COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNFT RETURNS CONTROL 
4124 ‘TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFT 
4125 i REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 
4126 ‘IN THE SAME WAY. IF THE RESULT OF THE 
4127 ‘MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
4128 “ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
4129 “THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFT 
4130 ‘WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
4131 :RESULT WAS INCORRE CT BUT WAS NOT ANTICIPATED AND OVUNFT WILL 
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4133 :IF NO TRAP OCCURS CONTROL Is PASSED TO ERR’. 

4134 “NOTE THAT OVUNFNT USES THE FLAG 

4135 TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
4136 SUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 

4138 022654 012601 OVUNFT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
4139 022656 012700 000200 MOV #200,RO *SET FD MODE. 

4140 022662 170100 LDFPS RO 

4142 022664 010100 MOV R1,RO ;LOAD ACO, OPERAND. 

4145 022666 172410 LDD (RO) ,ACO 

4145 022670 010102 MOV R1,R2 ;SAVE THE DATA PATTERNS IN CASE OF 
4146 022672 010237 001240 MOV R2.$TMP3 ERROR. 

4147 022676 062702 000004 ADD #4,R2 

4148 022702 010237 001242 MOV R2.$TMP4 

4149 022706 062702 000004 ADD #4 ,R2 

4150 022712 010237 001244 MOV R2.$TMPS 

4151 022716 016137 000022 001252 MOV 22(R1) ,$TMP10 

413¢ 622724 012737 023256 001246 MOV HOVF TT. $TMP6 

4154 022732 016100 000020 MOV 20(R1),RO :LOAD THE FPS. 

4155 022736 170100 LDFPS RO 

4156 022740 012737 022762 001236 MOV #1$,$TMP2 

qite 022746 012737 022772 000244 MOV #50$,FPVECT +i on FP TRAP VECTOR IN CASE 
4159 022754 010100 MOV R1,RO “COMPUTE THE ADDRESS OF FSRC. 

4160 022756 062700 000004 ADD #4.RO 

4162 022762 171010 1$: MULF (RO) ,ACO : TEST INSTRUCTION. SHOULD CAUSE TRAP. 
4163 022764 170000 2$: CFCC 

4165 022766 000137 023216 JMP 25$ :FAILURE, NO TRAP. 

4167 022772 011602 50$: MOV (SP) ,R2 ; TRAP TO HERE AND SEE IF THE PC OF THE 
4168 022774 020227 022764 CMP R2,A2$ iT RAP _ THAT OF THE MULF INSTRUCTION. 
4169 023000 001402 BEQ 51$ ‘BRANCH IF YES. 

4170 023002 000137 037000 JMP FPSPUR ;OTHERWISE REPORT SPURIOUS FP ERROR. 

4172 023006 022626 | 51$: CMP (SP) +, (SP)+ :RESET THE STACK 

4173 023010 170204 STFPS R4 sGET FPS. 

4174 023012 170305 STST = RS ‘GET FEC. 

4175 023014 012700 000200 MOV #200,RO “SET FD MODE. 

4176 02 20 170100 . LDFPS R 

4177 023022 012700 023256 MOV #OVFTT,RO :GET THE RESULT. 

4178 023026 174010 STD ACO, (RO) 

4179 023030 010437 001250 MOV R4,$TMP7 

4180 023034 010537 001254 MOV RS. $TMP11 

4182 023040 012700 023256 MOV HOVFTT,RO :CHECK THE RESULT. 

4183 023044 010102 MOV R1,R2 

4184 023046 062702 000010 ADD #10,R2 

4185 023052 012703 009002 MOV #2,R3 

4186 023056 022022 3$: CMP (RO) +, (R2)+ 

4187 023060 001027 BNE 15$ :BRANCH IF INCORRECT. 

4188 023062 077303 SOB R3,3$ 








—————— =e ae oe 
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90 023064 
ator 023070 
419 


2 
4193 023072 


4194 023076 
4195 023100 
4196 


7 
4198 023104 
rhb 023110 


023130 
023132 


6 
4217 023134 


4233 023176 
023200 


a8 | 023204 


: j 
4243 023206 
023210 


4245 
4246 023212 
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026104 
001014 


026105 
001002 
000161 


005761 
001002 


104137 
000771 


104140 
000767 
005761 


001002 


104141 
000762 


104142 
000760 


00 
077303 


010102 
062702 


010237 
000112 


005761 


001002 


104143 
000733 


000022 


000024 
000036 


000026 


000026 


023256 


000014 
000002 


000034 
001236 


000026 


sRESULT 
15$: 


16$: 


17$: 


18$: 


19$: 


CMP 22(R1) RS 
BNE 10$ 

CMP 24(R1),R5 
BNE 5$ 

JMP 36(R1) 
INCORRECT FEC. 
TST 26(R1) 
ERROR +137 

BR 4$ 

ERROR +140 

BR 4$ 
INCORRECT FPS. 
TST 26(R1) 
BNE 12$ 
ERROR +141 

BR 4$ 

ERROR +142 

BR 4$ 
INCORRECT. 

MOV #OVFTT,RO 
ADD #14,R2 
MOV #2,R3 
CMP (RO) +, (R2)+ 
BNE 17$ 

SOB R3,16$ 
MOV R1,R2 
ADD #34 ,R2 
MOV R2,$TMP2 
JMP (R2) 

TST 26(R1) 
BNE 19$ 
ERROR +143 

BR 4$ 


sWAS FPS CORRECT? 
;BRANCH IF FPS IS INCORRECT. 


31S FEC CORRECT? 
‘ie INCORRECT BRANCH. 
; RETURN, TEST COMPLETED. 


WAS THE RESULT OVERFLOW OR UNDERFLOW? 
;BRANCH IF UNDERFLOW. 


;REPORT BAD, FEC ON EXPECTED OVERFLOW. 


;REPORT BAD FEC ON EXPECTED UNDERFLOW. 


WAS THE RESULT OVER OR UNDER FLOW? 
;BRANCH IF UNDERFLOW. 


REPORT FPS BAD AFTER OVERFLOW. 


REPORT FPS BAD AFTER UNDERFLOW, 


SEE IF FAILURE IS ANTICIPATED 
FAILURE. 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
oy eee REPORT IN THE CALLING 


RESULT WAS NOT ANTICIPATED 

7S0 ERROR MUST BE REPORTED HERE. 
[FIRST SEE IF ARGUMENTS SHOULD 
SHAVE RESULTED IN OVERFLOW OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
[BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
OVERFLOW. 


REPORT RESULT INCORRECT, EXPECTING 


SEQUENCE 


93 


4247 023212 
4248 023214 
4249 


4250 
4251 023216 


4260 023250 

4261 

4262 023254 

426 

4264 023256 

4265 

4266 C23266 
023266 
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000200 
023256 


001250 
001254 


2 000030 


000000 


208: ERROR +144 
BR 4$ 
-IF NO FP TRAP OCCURS COME HERE. 
55$: STFPS RG 
STST 
V #200,R0 
LDFPS R 
MOV #OVFTT,RO 
STD ACO, (RO) 
MOV - R4,$TMP7 
MOV R5.$TMP11 
MOV R1.R2 
ADD #30,R2 
JMP (R2) 
000000 OVFTT: .WORD 0,0,0,0 
KKKDONE : 
RSETUP 


SEQUENCE 


; UNDERF LOW. 


GET FPS. 
GET FEC. 
;SET FD MODE. 


GET THE RESULT. 


ERROR WAS ANTICIPATED SO 
[RETURN TO THE ERROR REPORT OF THE 
;CALLING ROUTINE. 


3GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


TEST TITLE:UNDER/OVERFLOW, USING MULD WITH TRAPS ENABLED 
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4279 .SBTTL TEST # 15 = SEE COMMENT ABOVE FOR TEST TITLE 
MOTTITITIIT ITIL 


S*TEST 15 SEE COMMENT ABOVE FOR TEST TITLE 
:*THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW CONDITIONS USING THE 


Te 


SEQUENCE 95 


:*MULD INSTRUCTION WITH TRAPS ENABLED. A SUBROUTINE IS USED TO SET UP 
:*THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND CHECK THE RESULTS. 
** 


° 
RRR RRR AEE EEE ARERR REERERREREEEE RETR 


nnd 023270 TST15: SCOPE 
4281 ; UNDERF LOW, EXPONENT OF RESULT = -129 
L 3 


4282 02327 








4323 023470 


OT temas EXPONENT OF THE RESULT = 128 


13 

37 

52 125252 1$: 

52 52 

00 000000 000000 2$: 
177777 = 3$: 


SET UP THE LOOP ON ERROR ADDRESS. 


023272 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4283 023274 004737 023616 JSR PC ,OVUNDT 
4284 023300 020052 125252 1$: “WORD  20052,125252 ~—s: AC 
4285 023306 125252 125252 "WORD 125252,125252 
4286 023310 020300 000000 000000 2%: “WORD 20300,0,0,0 sF SRC 
4287 023320 000177 177777 177777 38: "WORD 177,-1,-1.-1 RES 
4288 023330 000177 177777 4s: "WORD 177-1 ‘ERROR RES. 
4289 023334 125252 125252 "WORD 125252,125252 
4290 023340 002200 S$: 3200 :FPS BEFORE EXECUTION. 
4291 023342 102204 102204 ‘FPS AFTER EXECUTION. 
4292 023344 000012 6$: 12 “FEC 
4293 023346 177777 -1 FLAG 
4294 023350 104157 7$: ERROR +157 7ST 331 (BUT FIU) NO TRAP. 
4295 023352 000401 Rt 
4296 023354 104160 ERROR +160 7ST 155 (BUT FD) 
4297 023356 8$: 
4299 :UNDERFLOW, EXPONENT OF THE RESULT = -193 
4300 023356 LLL2: 
023356 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4301 023360 004737 023616 JSR PC ,OVUNDT 
4302 023 010327 127272 1$ “WORD 10327,127272 ~—-: AC 
4303 023370 036363 045454 "WORD  36363,45454 
4304 023374 010000 000000 2%: “WORD  10000.0,0,0 F SRC 
4305 023404 060127 127272 3$: "WORD 60127.127272 RES 
4306 023410 036363 045454 "WORD 36363.45454 
4307 023414 177777 177777 +177777 4$: "WORD -1,-1,-1,-1 :ERROR RES. 
4308 023424 007217 5$: 7217 7 - SFPS BEFORE EXECUTION. 
4309 023426 107200 107200 ‘FPS AFTER EXECUTION. 
4310 023430 12 6$: 12 FEC 
4311 023432 177777 of] “FLAG 
4312 023434 104161 7$ ERROR +161 °$T 137 (BUT FIU) NO TRAP. 
4313 023436 000401 8$ 
4314 023440 104156 ERROR +156 
4 023442 8$: 
4 


40 


4324 023500 


4329 023516 
4330 0235 
4331 023522 


4333 023526 

4334 

4335 

4336 023526 
023526 

4337 023530 

4338 023534 


4342 023560 
4343 023564 
4344 023574 
4345 023576 
4346 02 
4347 023602 
4348 02 
4349 023606 
4350 023610 
4351 023612 
4352 

4353 

4354 

4355 

4356 

4357 

4358 
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100177 177777 
125252 125252 
001 


004737 023616 
060345 067654 
056765 045676 
060200 000000 

067654 


000345 
056765 045676 
177777 =—(177777 


000137 024230 


000600 


177777 


8$: 


F 8 
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4$: 
5$: 
6$: 
7$: 


100177 


125252, 125252 


SEQUENCE 


ERROR RES. 


sFPS BEFORE EXECUTION. 
eer AFTER EXECUTION. 


[FLAG 
‘$1 333 (BUT FIV) NO TRAP. 
:ST 700 (BUT FD). 


oe vse EXPONENT OF THE RESULT = 130 


LLLS 


1$: 


2$: 
3$: 


4$: 
S$: 


6$: 
7$: 


8$: 
: THIS SUBROUTINE, OVUNDT, 


PC ,OVUNDT 
60345 67654 
56765 .45676 
60200 0,0,0 
567654 
32520" 45676 


= = = - 
e e o 


+164 

8$ 

+155 
LLLDONE 


;SET UP THE LOOP ON ERROR ADDRESS. 
AC 


sF SRC 
RES 


ERROR RES. 
SFPS BEFORE EXECUTION. 
ZEPS AFTER EXECUTION. 


sFLAG 
7ST 133 (BUT FIV) NO TRAP 


IS USED TO SET UP THE OPERANDS, EXECUTE 


THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
TOPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
370 IT IS MADE THUS: 


ACARG: .WORD 


KM KM 7AC OPERAND 


3 


4393 
4394 023626 
4395 023630 
4396 
ri tad 023632 


4401 023650 
4402 023654 
4403 023660 
4404 023666 


4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4405 

4406 023674 


4409 023710 


4410 
4411 023716 00 
red) | 023720 
4414 023724 
4415 023726 
4416 


coe 


012601 
012700 
170100 


010100 
172410 


010102 


2 —2yo 
MO NNOH NWO 
= =<* — 
© w 

So N 


—~— 
NN 
om 


000 


CKFPBBO FPTIF FLTG PNT PRT B 
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000200 


001240 
000010 


024220 
000040 
023724 
023734 


000010 


G 
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001252 
001246 


001236 
000244 


8 
SEQUENCE 97 


; FSRCARG:.WORD X,X,X,x 3FSRC OPERAND 

; RES: “WORD X,X,X,X EXPECTED “me T 

; ERRES: .WORD X,X.X,X ZERROR RESUL 

; FPSB «WORD ¥ FPS BEFORE EXECUTION 
3 FPSA «WORD X SFPS AFTER EXECUTION 
; FEC: «WORD X TEXPECTED FEC 

5 FLAG: «WORD X 30/-1,O0VER/UNDER FLOW FLAG 
; ERR1 ERROR +X ; TRAP ERROR. 

; BR CONT 

: ERR2: ERROR +X DATA, RESULT ERROR 

: CONT: RETURN ADDRESS 


THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

[THE MULD INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 
‘RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDT RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDT 

[REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 
IN THE SAME WAY. IF THE RESULT OF THE 

SMULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
sANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNDT 
‘WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
SRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDT WILL 
TREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 

71F NO TRAP OCCURS CONTROL * PASSED TO ERR1. 

[NOTE THAT OVUNDNT USES THE FLAG 

>TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
TUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 


OVUNDT: MOV (SP)+,R1 GET A POINTER TO THE ARGUMENTS. 
MOV #200,RO0 ;SET FD MODE. 
LDFPS RO 
MOV R1,RO ;LOAD ACO, OPERAND. 
LDD (RO) ,ACO 
MOV R1,R2 SAVE THE DATA PATTERNS IN CASE OF 
MOV R2,$TMP3 ERROR. 
ADD #10,R2 
MOV R2,$TMP4 


ADD #10,R2 

MOV R2,$TMP5S 

MOV 42(R1),$TMP10 
MOV #OVDTT ,STMP6 


40(R1),RO 
RO 


MOV #1$,$TMP2 
MOV #50$,FPVECT 


;LOAD THE FPS. 


;SET UP THE FP TRAP VECTOR IN CASE 
SOF ERROR. 


MOV R1.RO ‘COMPUTE THE ADDRESS OF FSRC. 
ADD #10,RO 
18: MUL D (RO), ACO sTEST INSTRUCTION. SHOULD CAUSE TRAP. 


«=~ CO 
; 


CKFPBBO FP11F FLTG PNT PRT B 
COMMENT ABOVE FOR TEST TITLE 


' TEST # 15 = SEE 


46417 023730 
441 

4419 023734 
4420 023736 
4421 023742 
4422 023744 


4424 023750 


4431 023772 


P 

* 

~m nm 

N - oo 
oO 

Nm 

w 

> 

yw 

oa 


4440 024024 


4442 024026 
4443 024032 


4450 024046 
4451 024052 


4454 024054 
4455 024056 


4456 
4457 024060 
4458 024060 
4459 024062 
4460 


4461 
4462 024064 
reer 024070 


4465 
1066 024072 
“ 024074 


4469 024076 
4470 024076 
4471 024100 
4472 
4473 


0007 37 
011602 


001027 
077303 


026104 
001014 


026105 


005761 
001002 


104153 
000762 


104154 
000760 


024160 


023726 
037000 


000200 
024220 


001250 
001254 


024220 
000020 


000004 


000042 


000044 
000056 


000046 


000046 


H_ 8 
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50$: 


51$: 


3$: 


4$: 
;REPORT 
5$: 


6$: 


7$: 
8$: 


ZREPORT 
10$: 


JMP 


25$ 
(SP) ,R2 


R2,#2$ 
51$ 
FPSPUR 
(SP) +, (SP)+ 
R4 

R5 

#200,R0 

RO 
#OVDTT,RO 
R5.$TMP11 
#OVDTT,RO 
R1,R2 
#20,R2 
#4,R3 
(RO) +, (R2)+ 
15$ 

R3,3$% 
42(R1),R4 
10$ 


44(R1),R5 
56(R1) 


INCORRECT FEC. 
TST 


BNE 
ERROR 
BR 


ERROR 
BR 


46(R1) 
7$ 
+151 
4$ 


+152 
4$ 


INCORRECT FPS. 
TST 46(R1) 


BNE 


ERROR . 


BR 


ERROR 
BR 


12$ 


+154 
4$ 


RESULT INCORRECT. 


SEQUENCE 


sFAILURE, NO TRAP. 


; TRAP TO HERE AND SEE IF THE PC_OF THE 
STRAP WAS THAT OF THE MULF eae rare 


BRANCH IF YES 
ZOTHERWISE REPORT SPURIOUS FP ERROR. 
RESET THE STACK 
GET FPS 


GET FEC. 
7SET FD MODE. 


GET THE RESULT. 


CHECK THE RESULT. 


;BRANCH IF INCORRECT. 


WAS FPS CORRECT? 
[BRANCH IF FPS IS INCORRECT. 


31S FEC CORRECT? 
7 1F INCORRECT BRANCH. 
:RETURN. TEST COMPLETED. 


WAS THE RESULT OVERFLOW OR UNDERFLOW? 
;BRANCH IF UNDERFLOW. 


REPORT BAD FEC ON EXPECTED OVERFLOW. 


REPORT BAD FEC ON EXPECTED UNDERFLOW. 


WAS THE RESULT OVER OR UNDER FLOW? 
[BRANCH IF UNDERFLOW. 


REPORT FPS BAD AFTER OVERFLOW. 


;REPORT FPS BAD AFTER UNDERFLOW. 


98 


ee 


4474 024102 
4475 024106 


4480 024124 
4481 
4482 024126 


4485 024140 
4486 
4487 024142 
4488 


44 

4492 024146 
4493 

6494 

4495 024150 
4496 024152 
4497 

4498 024154 
4499 024154 
4500 024156 
4501 


4502 
4503 024160 


4512 024212 
i314 024216 
4516 024220 
4518 024230 

024230 
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700 024220 


000030 
000004 


SaSo 

=o 

mnrmoocr 
= 
oO 
~m 


062702 000054 
010237 001236 


005761 000046 


000200 
024220 


0 
10437 001250 
10537 001254 


062702 000050 


000000 000000 


8 
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ABOVE FOR TEST TITLE 


000000 


SEQUENCE 


15$: MOV #OVDTT,RO :SEE IF FAILURE IS ANTICIPATED 
MOV R1,R2 FAILURE. 
ADD #30,R2 
MOV #4 ,R3 
16$: CMP (RO) +, (R2)+ 
BNE 17$ :BRANCH IF NOT ANTICIPATED. 
SOB R3,16$ 
MOV RI (Re ZERROR WAS ANTICIPATED SO RETURN 
ADD R2 *TO THE ERROR REPORT IN THE CALLING 
MOV R2, $TMP2 ROUTINE. 
JMP (R2) 
17$: TST 46(R1) :RESULT WAS NOT ANTICIPATED 
*S0 ERROR MUST BE REPORTED HERE 
“FIRST SEE IF ARGUMENTS SHOULD 
SHAVE RESULTED IN OVERFLOW OR UNDER 
“FLOW BY LOOKING AT THE FLAG. 
BNE 19$ ‘BRANCH IF UNDERFLOW EXPECTED. 
:REPORT RESULT INCORRECT, EXPECTING 
18$: ERROR +155 OVERFLOW. 
BR 4$ 
19$: :REPORT RESULT INCORRECT, EXPECTING 
20$: ERROR +156 “UNDERF LOW. 
BR 4$ 
z1F NO FP TRAP OCCURS COME HERE. 
55$:  STFPS :GET FPS. 
STST RS GET FEC. 
V #200,R0 SSET FD MODE. 
LDFPS R 


OVDTT: 


LLLDONE : 


3;GET THE RESULT. 


MOV R4,$TMP 

MOV R5,$1MP11 

MOV R1,R ERROR WAS ANTICIPATED SO 

ADD #50,R2 SRETURN TO THE ERROR REPORT OF THE 
CALLING ROUTINE. 

'MP (R2) 


-WORD 0,0,0.0 


3GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
TVIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


ee 


J. 8 
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TEST # 16 = MODF 





4531 .SBTTL TEST # 16 = MODF TEST 

; RARER AAAAAAAAEEAAAAARAEKRAREAREKARA ARERR AAA ee 

TEST 16 MODF TEST 
THIS 1S A TEST OF THE MODF INSTRUCTION, WHICH MAKES USE OF 
A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
; AND CHECK THE RESULTS. 
it eteneeneeeeeecenteneneeeetenenenennennenneneenenanerseeneneees 
: 024232 000004 1ST16: SCOPE 

4533 sMODF WITH (FSRC=AC=0) 
4534 024234 6GG1: 

024234 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4535 024236 004737 025320 JSR PC ,MODF SUB 
4536 024242 000000 000000 1$: .WORD 0, AC 
4537 024246 000000 000000 2$: “wORD 0.0 +F SRC 
4538 024252 000000 3$: “WORD 0,0 “FRACTIONAL RES. 
4539 024256 000000 000000 4$: “wORD 0,0 S INTEGER RES 
4540 024262 177777 (177777 5$: "WORD -1,-1 ‘ERROR FRACTIONAL RES. 
4541 024266 177777 177777 é$: "WORD -1,-1 TERROR INGETER RES. 
4542 024272 000013 7$: 13 ‘FPS BEFORE EXECUTION. 
4543 024274 4 ‘FPS AFTER EXECUTION. 
4544 024276 104056 8$: ERROR +56 : STORE SINGLE ZERO BAD. 
4545 024300 01 9$ 
4546 024302 104057 ERROR +57 sAC V 1 <= ZERO FAILED. 
4547 024304 9$: 
4548 
4549 MODF TEST, WITH (FSRC=0) 
4550 024304 

024304 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4551 024306 04737 025320 JSR PC ,MODF SUB 
4552 026312 123456 076543 1$: “WORD 123456,76543 —-: AC 
4553 024316 000000 2$: “WORD 0,0 FSRC 
4554 024322 000000 000 3$: “wORD 0.0 “FRACTIONAL RES. 
4555 024326 000000 4$: “wORD 0,0 ‘ INTEGER RESULT. 
4556 024332 123456 076543 5$: ~ WORD 125456, 76543  :ERROR FRACTIONAL RES. 
4557 024336 177777 177777 6$: “WORD =1,=1 ‘ERROR INTEGER RES. 
4558 024342 7$: 0 [FPS BEFORE EXECUTION 
4559 024344 ‘FPS AFTER EXECUTION. 
45 024346 104056 8$: ERROR +56 :STORE ZERO FAILURE. 
4561 024350 000401 R 9$ 
4562 024352 104057 ERROR +57 
4563 024354 9$: 
4564 
4565 MODF TEST WITH (AC=0) 
4566 024354 

024354 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4567 024356 004737 025320. JSR PC ,MODF SUB 
4568 024362 000000 1$: .WORD 0, AC 

024366 076543 021234 2$: "WORD 76543,21234 *FSRC 
4570 024372 000000 000000 3$: “WORD 0,0 “FRACTIONAL RES. 
4571 024376 000000 00000C i$: "WORD 0, * INTEGER RES. 
4572 024402 000000 000000 5$: “WORD 0,0 *ERROR FRACTIONAL RES. 
4573 024406 177777 177777 6$: "WORD -1,-1 ‘ERROR INTEGER RES. 
4574 024412 03 7$: 3 *FPS BEFORE EXECUTION. 
4575 026414 000004 4 “FPS AFTER EXECUTION. 


4a 


KF PBBO FP1IF 4 Be 
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4576 024416 


4595 024474 
96 


7 
4598 024474 


rr of 024544 


3 
4614 024544 


4625 
4626 024610 
4627 024612 
4628 024614 
4629 


kK 8 
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PRT B SEQUENCE 
8$: ERROR +53 :RES.BAD 
BR 9$ 
ERROR +57 
;MODF TEST WITH EXPONENT OF THE RESULT = 25 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
025320 JSR PC ,MODF SUB 
125252 1$: “WORD. 46252,125252 —_; AC 
000000 2$: "WORD 40300,0 FSRC 
3$: ~WORD 0, ;FRACTIONAL RES. 
177777 4$ "WORD 46377,-1 * INTEGER RES. 
125252 S$: “WORD 46252,125252  ;ERROR FRACTIONAL RES. 
0 6$: “wORD  40300,0 ‘ERROR INTEGER RES. 
7$: 13 ‘FPS BEFORE EXECUTION. 
4 ‘FPS AFTER EXECUTION. 
8$: ERROR +53 SST 134 
BR 9$ 
ERROR +60 
9$: 
;MODF TEST WITH EXPONENT OF THE RESULT = 127 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
025320 JSR PC ,MODF SUB 
125252 1$: “WORD 77652,125252 AC 
000000 2$: "WORD 40300,0 *FSRC 
000000 3$: “WORD SFRACTIONAL RES. 
177777 L$: "WORD 77777,-1 * INTEGER RES. 
125252 S$: "WORD 77652,125252  ;ERROR FRACTIONAL RES. 
000000 6$: “WORD 40300,0 ‘ERROR INTEGER RES. 
7$: 0 ‘FPS BEFORE EXECUTION. 
4 ‘FPS AFTER EXECUTION. 
8$ ERROR +53 
9$ 
ERROR +60 
9$: 
;MODF TEST WITH EXPONENT OF RESULT = 25 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
025320 JSR PC ,MODF SUB 
000001 1$: “WORD 46200,1 AC 
2$: . WORD 40340,0 *FSRC 
000000 3$: “WORD 0, S FRACTIONAL RES. 
000001 43: "WORD  46340,1 S INTEGER RES 
000000 5$: “WORD  40000,0 ERROR FRACTIONAL RES. 
177777 6$: "WORD =1,=1 ERROR INTEGER RES. 
7$: 13 ‘FPS BEFORE EXECUTION. 
4 “FPS AFTER EXECUTION, 
8$: ERROR +61 ‘BAD CONSTANT (NOT 24) 
“OR ST 525 TO 050 INTO 150. 
BR 9$ 
ERROR +54 





101 


Pet ae tee er ¢ 
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TEST # 16 = MODF TEST 
4630 sMODF | TEST WITH EXPONENT OF THE RESULT = 24 
4631 024614 GGG7: 
024614 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. ‘ 
4632 024616 004737 025320 JSR PC ,MODF SUB 
4633 024622 046000 000001 1$: “WORD  46000,1 AC 
024626 040340 000000 2$: "WORD  40340,0 +FSRC 
4635 024632 040100 000000 3$: "WORD 40100,0 *FRACTIONAL RES. 
4636 024636 046140 000001 4$: "WORD 46140.1 ‘INTEGER RESULT. 
4637 024642 000000 000060 S$: “WORD 0,0 SERROR FRACTIONAL RES. 
38 024646 177777 177777 6$: "WORD -1,-1 ‘ERROR INTEGER RES. 
4639 024652 000000 7$: 0 ‘FPS BEFORE EXECUTION. 
4640 024654 000000 0 FPS AFTER EXECUTION. 
4641 024656 104062 8$: ERROR +62 “BAD CONSTANT USED (NOT 24) 
4642 ‘OR ST 525 TO 150 INTO 050 
4643 024660 000401 BR 9$ 
4644 024662 104054 ERROR +54 
re P| 024664 9$: 
4647 :MODF TEST WITH EXPONENT OF THE RESULT = 10 - 
4648 024664 6GG8: 
024 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4649 024666 004737 025320 JSR PC ,MODF SUB 
4650 024672 042577 177777 1$: “WORD 42577,-1 SAC 
4651 024676 040200 000000 2$: "WORD 40200,0 *FSRC 
4652 024702 040177 176000 3$: "WORD 40177.176000  :FRACTIONAL RES. 
4653 024706 042577 140000 4$: "WORD 42577.140000 INTEGER RES 
4654 0246712 177777 «177777 S$: "WORD -1,-1 “ERROR FRACTIONAL RES. 
4655 024716 177777 177777 6$: "WORD -1.=1 ‘ERROR INTEGER RES. 
4656 024722 000000 7$: 0 ... 9FPS BEFORE EXECUTION. - 
4657 024724 000000 0 :FPS AFTER EXECUTION. 
4658 024726 104053 aE ERROR +53 
4659 024730 0004 9$ 
4660 024732 104054 ERROR +54 
4661 024734 9$: 
sMODF TEST WITH THE EXPONENT OF THE RESULT = 10 
4664 024734 GGG9: 
024734 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4665 024736 004737 025320 JSR 
4666 024742 042577 140001 1$: . WORD oS ey 20001 AC 
4667 024746 040200 000000 2$: "wORD  40200,0 *FSRC 
4668 024752 034600 000000 . 3$: "WORD  34600,0 SFRACTIONAL RES. 
4669 024756 042577 140000 4$: - WORD 42577, 140000 =: INTEGER RES. 
4670 024762 000000 000000 S$: “ WORD TERROR FRACTIONAL RES. 
024766 177777 177777 6$: “ WORD ee ‘ERROR INTEGER RES. 
4672 024772 000000 7$: 0 [FPS BEFORE EXECUTION. 
4673 024774 000000 0 ‘FPS AFTER EXECUTION. 
4674 024776 104063 8$: ERROR +63 “ST 532 TO 122 INTO NORMALIZE. 
4675 025 000401 BR 9$ 
4676 025002 104054 ERROR +54 
4677 025004 9$: 
4679 :MODF TEST WITH EXPONENT OF THE RESULT = 9 
4680 025004 6GG10: 
025004 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4681 025006 004737 025320 JSR PC ,MODF SUB 
4682 025012 042377 100000 1$: “WORD 42377,100000 =; AC 
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TEST 
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roe +4 025016 


4693 025054 
94 ‘ 


5 
4696 025054 


5122 
rhe 025124 


1 
4712 025124 


6 5226 
4736 025232 





040200 
000000 


000000 
000000 
100000 
177777 
177777 


025320 
177777 


177777 


025320 
177777 
000000 
177777 
000000 


000000 
177777 


025320 
000001 


000000 
000002 
000000 
000001 
000000 


M 
MACRO M1113 28-MAR-81 14:47 PAGE 8-3 


9$: 


9$: 


9$: 


40200,0 
40377, 100000 


EXPONENT OF THE 


PC ,MODF SUB 


EXPONENT OF THE 


PC MODF SUB 
34377,-1 
40200.0 

36577 -=1 


° 


0,0 
34377,-1 
+64 

9$ 

+64 


EXPONENT OF RESULT = ~64, 


PC ,MODF SUB 
20000, 1 


SEQUENCE 


sFSRC 
;FRACTIONAL RES. 


TFPS AFTER EXECUTION. 


RESULT = 0 
SET UP THE LOOP ON ERROR ADDRESS. 


AC 
sFSRC 
sFRACTIONAL RES. 


SFPS AFTER EXECUTION, 
7ST 041 TO 046 INTO 246. 


RESULT = -15 

;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 

sFSRC 

FRACTIONAL aes. 


FPS AFTER EXECUTION. 


IN ROUND MODE 
SET UP THE LOOP ON ERROR ADDRESS. 


3AC 

ZF SRC 

;FRACTIONAL RES. 

; INTEGER RES. 

sERROR FRACTIONAL RES. 
sERROR INTEGER RES 

FPS BEF ORE EXECUTION. 


103 
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4737 025234 
4741 025244 
4742 


4743 

4744 025244 
025244 

745 025246 





000000 
104065 
000401 
104054 


PRT B 


025320 
170000 
000000 
000000 
160000 
900 


000 
160000 


025706 
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SEQUENCE 
0 FPS AFTER EXECUTION. 
8$: a [ROUND TRUNK, ST 126 INTO ROUND. 


ERROR +54 
9$: 


;MODF TEST WITH EXPONENT OF RESULT = 11 
GGG14: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MODF SUB 

1$: “WORD  142777,170000 :AC 

2$: “wORD  40200,0 SFSRC 

3$: "wORD  140000,0 SFRACTIONAL RES. 

L$ "WORD  142777,160000 : INTEGER RES. 

5$ “wORD 40000, TERROR FRACTIONAL RES 

6$: "WORD  42777.160000 ZERROR INTEGER RES. 

7$: ? FPS BEFORE EXECUTION. 
10 “FPS AFTER EXECUTION. 

8$ ERROR 66 ‘SIGN OF FRACTION. 
ERROR +67 :SIGN OF INTEGER. 

9$: JMP GGGDONE :GO TO NEXT TEST. 


;THIS SUBROUTINE, MODFSUB, IS CALLED TO SETUP THE 
SOPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
SIT IS CALLED THUS: 


: ACARG: .WORD X,X 3;AC_OPERAND 
FSRCARG:.WORD X,X :FSRC_OPERAND 
FRES: WORD X,X SFRACTIONAL RESULT 
INTRES: .WORD X,X S INTEGER RESULT 
ERFRES: .WORD X,X ERROR FRACTION RESULT 
vee «WORD X,X ERROR INTEGER RESULT 
FPSB:  .WORD X [FPS BEFORE EXECUTION 


FPSA: -WORD X 
ERR1: ERROR +X [FRACTION ERR 


BR 
ERR2: ERROR +X ; INTEGER ERROR 
CONT: ;RETURN ADDRESS 


ZFPS AFTER a 


MATCH 
._IF “THE ANTICIPATED 
PASSES Spy sy TO THE 


“CALL AT ERR2. 


8 9 
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TEST # 16 = MODF TEST 


4793 025320 012601 MODF SUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS 
4794 025322 012700 000200 MOV #200,RO ;SET FD MODE. . 
4795 025326 170100 LDFPS RO 

47% 30 010100 V :SET UP ACO 

4797 025332 172410 LDD (RO) ,ACO 

4798 025334 012700 025676 MOV A#MODP1 ,RO ;PUT A BACKROUND PATTERN INTO AC1. 
4799 025340 172510 LDD (RO) ,AC1 

4800 025342 016100 000030 MOV 30(R1),RO ;SET UP THE FPS. 

4801 025346 170100 LDFPS RO 

4802 025350 012737 025364 001236 MOV #1$,$TMP2 

4803 025356 010100 MOV R1,RO ;COMPUTE THE ADDRESS OF THE FSRC. 
4804 025360 062700 000004 ADD #4,RO 

4806 025364 171410 1$: MODF (RO) ,ACO ;EXECUTE THE TEST INSTRUCTION. 
4808 025366 170204 STFPS RG :GET THE FPS. 

4809 025370 012700 000200 MOV #200,R0 [SET FD MODE. 

4810 025374 170100 LDFPS oR 

4811 025376 012700 025656 MOV #MODF TO, RO :GET THE FRACTIONAL RESULT. 

4812 025402 174010 STD ACO, (RO) 

4813 025404 012700 025666 MOV #MODFT1,RO :GET THE INTEGER RESULT. 

4814 025410 174110 STD AC1, (RO) 

4816 025412 010102 MOV R1,R2 ;SAVE THE DATA IN CASE OF ERROR. 
4817 025414 010237 001240 MOV R2.$TMP3 

4818 025420 062702 000004 ADD * 

4819 025424 010237 001242 MOV R2,$TMP4 

4820 025430 062702 ADD 

4821 025434 010237 001244 MOV R2.$TMPS 

4822 025440 062702 000004 ADD . 

4823 025444 010237 001246 MOV R2,$TM 

4824 025450 012737 025656 001250 MOV WmODE TO. © SIP? 

4825 025456 012737 025666 001252 MOV #MODFT1.$TMP10 

4826 025464 010437 001254 MOV R4,$TMP11 

4827 025470 016137 000032 001256 MOV 32(R1) ,STMP12 

4829 025476 012702 025656 MOV #MODF TO,R2 :CHECK THE FRACTIONAL RESULT. 
4830 025502 026112 000010 CMP 10(R1), (R2) 

4831 025506 001022 BNE 10$ ;BRANCH IF INCORRECT. 

4832 025510 026162 000012 000002 CMP 19¢R1) ,2(R2) 

4835 025516 001016 BNE 10$ 

4835 025520 012702 025666 MOV #MODFT1,R2 :CHECK THE INTEGER RESULT. 

4836 025524 026112 000014 CMP 14(R1), (R2) 

4837 025530 001026 BNE 15$ BRANCH IF INCORRECT. 

4838 025532 026162 000016 000002 CMP 16(R1) ,2(R2) 

4839 025540 001022 BNE 15$ 

4841 025542 026104 000032 CMP 32(R1) ,R4 :CHECK THE FPS. 

4842 025546 001034 BNE 20$ BRANCH IF INCORRECT. 

4844 025550 000161 000042 9$: JMP 42(R1) ;RETURN. 

4846 ;FRACTIONAL ERROR. 

4847 025554 026112 000020 10$: CMP 20(R1), (R2) :WAS THE ERROR ANTICIPATED? 

4848 025560 001010 BNE 11$ ‘BRANCH IF NOT ANTICIPATED. 

4849 025562 026162 000022 000002 CMP 22(R1),2(R2) 
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4850 025570 
4851 025572 
4852 025574 
4853 

4854 025600 
4855 

4856 025602 


4857 025602 
4858 025604 
4859 


4867 

4868 025632 

4869 

~ 4870 025634 

4871 025634 

4872 025636 

4873 

4874 

4875 025640 

4878 025654 

4879 

— 025656 

rr) 025666 

4884 025676 

4885 

4886 025706 
025706 
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001004 
010102 
062702 
000112 


104053 
000761 


026112 
0 


000000 
177777 


104412 


000034 


000024 
000026 


000040 


001254 
000032 


000000 
000000 
177777 
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000002 


001256 


000000 
000000 
177777 


BL 
12$: ERROR 
BR 


; INTEGER ERROR. 
15$: 


JMP 


16$: 


17$: ERROR 
BR 


sFPS INCORRECT. 
20$: MOV 


MOV 
21$: ERROR 

BR 
MODFTO: .WORD 
MODFT1: .WORD 
MODP1: .WORD 
GGGDONE : 

RSETUP 


R1,R2 


(R2) 


+53 
9$ 


+? scious 
16$ 
26(R1) ,2¢R2) 
16$ 


4,$1TMP11 


32iR), $TMP12 


8 

0.0.0.0 
0,0,0,0 
=1,-1,-1,-1 





“SEQUENCE 


;THE ERROR WAS ANTICIPATED SO 
SRETURN TO THE ERROR REPORT AT THE 
[CALLING ROUTINE. 


; THE ERROR WAS NOT ANTICIPATED SO 
TREPORT THE INCORRECT FRACTION HERE. 


WAS THIS ERROR ANTICIPATED? 
;BRANCH IF NOT. 


; THE ERROR WAS ANTICIAPTED SO RETURN 
+10 — REPORT IN THE CALLING 


THE ERROR WAS NOT ANTICIPATED SO REPORT 
THE INTEGER FAILURE HERE. 


;REPORT INCORRECT FPS. 


#60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

“THE DESIRE TO CHANGE THE SOF TWARE 
TVIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


106 
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4898 _SBITL TEST # 17 = MODD TEST 
PLACA AREA A AREER AAA AAA EERE ERE R RARE ARERR RRA AAR A REE EEEE RARER 
teTEST 17 MODD TEST 
*“*® 
t*THIS IS A TEST OF THE MODD INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
#10 SET UP THE ARGUMENTS, EXECUTE THE INSTRUCTION AND CHECK THE 
; *RESULTS. 
+ RRNA E ARERR EERE EEE ETE R ARR E AER ER EERE ERE R EERE EERE EES 
. 025710 000004 1S117: SCOPE 
4900 :MODD WITH (FSRC=AC=0) 
4901 025712 HHH1: 
025712 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4902 025714 004737 027416 JSR PC ,MODDSUB 
4903 025720 000000 000000 000000 1$ “WORD 0,0,0,0 AC 
4904 025730 000000 000000 2$ “WORD 0.0.0.0 ZF SRC 
4905 025740 000000 000000 000000 3$ “wORD 0.0.0.0 :FRACTIONAL RES. 
4906 025750 000000 000000 4$ 7wORD 0.0.0.0 S INTEGER RES. 
4907 625760 000000 000000 000000 5$: “WORD 0,0,0,0 ‘ERROR FRACTIONAL RES. 
4908 025770 000000 000000 177777 6$: “WORD 0.0.-1,-1 ‘ERROR INTEGER RES. 
4909 026000 000200 7$: 200 [FPS BEFORE EXECUTION. 
4910 026002 000204 204 “FPS AFTER EXECUTION. 
4911 0260046 104070 8$ ERROR +70 
4912 026006 000401 BR 
4913 026010 104074 ERROR +74 :ST 231 TO 142 INTO 143 
4914 026012 9$: 
4915 
4916 :MODD TEST WITH FSRC=0 
4917 026012 HHH : 
026012 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4918 026014 004737 027416 JSR PC MODDSUB 
4919 026020 012345 067012 1$: “WORD 012345,67012 =: AC 
4920 026024 034567 012345 "WORD  346567,012345 
4921 026030 000000 000000 000000 2% “WORD 0,0,0,0 ZF SRC 
4922 026040 000000 000000 000000 3$ “WORD 0.0.0.0 SFRACTIONAL RES. 
4923 026050 000000 000000 4$ “WORD 0,0,0,0 S INTEGER RES. 
4924 02 012345 067012 5$ "WORD 012345,67012 ERROR FRACTIONAL RES. 
4925 026064 034567 012345 "WORD  34567,012345 
4926 026070 177777 177777 177777 68%: "WORD -1,-1,-1,-1 ZERROR INTEGER RES. 
4927 026100 000213 7$: 313 [FPS BEFORE EXECUTION. 
4928 026102 000204 204 SFPS AFTER EXECUTION. 
4929 026104 104075 8$ ERROR +75 ‘STORE DOUBLE ZERO 
026 00040 9$ 
4931 026110 104076 ERROR +76 sAC V 1 <= ZERO ST 143 
4953@ 026112 9$ 
:MODD TEST WITH (AC=0) 
4935 026112 HHH : 
026112 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4936 026114 004737 027416 JSR PC MODDSUB 
4937 026120 0600000 000000 000000 1$: WORD 0,0 ZAC 
4938 026130 072727 127272 2s: "WORD 72727.127272 =: FSRC 
4939 026134 072727 127272 "WORD 72727.127272 
4940 026140 000000 000000 000000 3$: “WORD 0,0,0.0 sFRACTIONAL RES. 
4941 026150 000000 000000 000000 4$: “WORD 0,0,0,0 S INTEGER RES. 
4942 026160 177777 177777 177777 S$: "WORD «1, -1,-1,=1 TERROR FRACTIONAL RES. 


——— 
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4943 026170 177777 
4944 026200 000213 


94 206 
rt | 026210 
9 026212 


026412 104413 
004737 


499 
4996 026470 


wn 
Oo 
rs 
a 
Oo 


056200 
040340 


000000 
056340 
040000 
056340 
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177777 


027416 


125726 


027416 
0000 
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177777 6$: 
7$: 


8$: 


9$: 


sMODD TEST WITH 
HHHG: 


000000 2$: 
000000 3$: 
177777 =4$: 


177777 =6$: 


9$: 


000000 1$: 
' 233 


000000 3$: 
4$: 
17rere =: 
6$: 
7$: 
8$: 


9$: 


;MODD TEST WITH 
HHH6: 


000000 é$: 


SEQUENCE 108 


-1,°1,°1,°1 ERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 
» zFPS AFTER EXECUTION. 
+ 


9$ 
+771 


EXPONENT OF THE RESULT = 57 
SET UP THE LOOP ON ERROR ADDRESS. 


56852, 138850 AC 
2525 $516 125250 
163 0.0,0,0 sFSRC 
6. 0.0, ‘FRACTIONAL RES. 
36377, -1,-1,-4 ; INTEGER RES. 
;ERROR FRACTIONAL RES. 
155252, 125252, 


377,-1,-1, ERROR INTEGER RES. 
3FPS BEFORE oy Ae ag 


*FPS AFTER EXECUTION. 
iy 7ST 526 TO 134 INTO 135 
+77 


EXPONENT OF THE RESULT = 79 
;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,MODDSUB 
140240,0,0,0  ;:AC 
63714,146314 :FSRC 
133572, 167737 
0,0,0,0 :FRACTIONAL RES. 
163777,-1 ‘ INTEGER RES. 
182531125726 
o} -1,°1,-1 sERROR FRACTIONAL RES. 
63777.-1 ‘ERROR INTEGER RES. 
162531,125726 
:FPS BEFORE EXECUTION. 
*FPS AFTER EXECUTION. 
+70 
9$ 
+100 7ST 526 BAD SIGN 


EXPONENT OF THE RESULT = 57 
SET UP THE LOOP ON ERROR ADDRESS. 


PC ,MODDSLB 
$6200. 0,0,1 ZAC 

340-0-;0.0 +F SRC 
$°0'0°0 sFRACTIONAL RES. 
56340.0.0,1 S INTEGER RES. 
40000,0,0,0 sERROR FRACTIONAL RES. 
56340,0,0,1 sERROR INTECER RES. 





4997 026500 
4998 026502 
4999 026504 


5000 
5001 026506 
5002 026510 


5003 026512" 
5004 


5005 

5006 oce2ts 
026512 

5007 026514 

5008 026520 


5009 026530 
5010 026540 
50 550 


Oo 


5026 026630 
5027 026640 
ase 026650 
5029 026660 
5030 026670 
5031 026700 
5032 026702 
5033 026704 
5034 026706 
5035 026710 
5036 026712 
5037 


5038 
5039 026712 
6712 


5048 026770 
5049 027000 
5050 027002 
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000213 
000204 
104101 


00 
104102 


000401 
104102 


104413 
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027416 
000 


027416 
177777 


177777 


027416 


00 
177777 
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000000 


000000 


177777 


177777 


000000 


000009 


000000 
177777 


7$: 213 
204 
8$: ERROR 
BR 
ERROR 
9$: 
sMODD TEST WITH 
HHH/: 
LPERR 
JSR 
1$: WORD 
2$: . WORD 
3$: . WORD 
4$: .~WORD 
5$: . WORD 
6$: WORD 
7$: 213 
200 
8$: ERROR 
6R 
ERROR 
9$: 
sMODD TEST WITH 
HHHB: . 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: .~ WORD 
5$: . WORD 
6$: . WORD 
7$: 217 
200 
8$: ERROR 
ERROR 
9$: 
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;FPS BEFORE EXECUTION. 
FPS AFTER agp al 

+101 [CONSTANT BAD (NOT 56) 

[OR ST 525 TO 050 INTO 150 


9S 
+101 


EXPONENT OF THE RESULT = 56 
SET UP THE LOOP ON ERROR ADDRESS. 


PC ,MODDSUB 
56000, 0,0,1 zAC 
4034 0;0.0.0 sFSRC 

20100.0.0.0 sFRACTIONAL RES. 

56140,0,0,1 ; INTEGER RES. 

0,0,0,0 ;ERROR FRACTIONAL RES. 

56140,0,0,1 ;ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 

+102 “BAD D CONSTANT (NOT 56) OR 
3ST 525 TO 150 INTO 050 

9$ 

+102 

EXPONENT OF THE RESULT = 36 
:SET UP THE LOOP ON ERROR ADDRESS. 

PC ,MODDSUB 

51177.-1,-1.71 ;AC 

0200.0,0, sFSRC 

40177,-20,0, sFRACTIONAL RES. 

51177,-1,-20,0 ;INTEGER RES. 

-1,-1,-1,7- * ERROR FRACTIONAL RES. 

-1,-1,-1,7-1 ;ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 

+70 

9$ 

+71 


EXPONENT OF THE RESULT = 30 
SET UP THE LOOP ON ERROR ADDRESS. 


PC ,MODDSUB 

40200, 0, 0,0 ZAC 
7577 3F SRC 

176000, : 

31600,0,0.0 :FRACTIONAL RES. 
577,71 ; INTEGER RES. 

176000,0 

0,0,0.0 ;ERROR FRACTIONAL RES. 


ERROR INTEGER RES. 
zFPS BEFORE EXECUTION. 
TFPS AFTER EXECUTION. 


G 9 
CKFPBBO FPIIF FLTG “ y PRT B MACRO M1113 28=MAR-81 14:47 PAGE 29-3 SEQUENCE 110 


TEST # 17 = MODD TES 


| 
| 
| §051 027004 104103 aS: ERROR +103 (NORMALIZE) ST 532 TO 122 
5052 ‘INTO NORM. 
$053 027006 000401 BR 9$ 
j 5054 027010 104104 ERROR +104 sAC V 1 <= X14 
5055 ‘OR ST 733 TO 156 INTO 157. 
3096 027012 9$: 
| 5058 :MODD TEST WITH EXPONENT OF THE RESULT = 31 
5059 027012 HHH10: 
| 027012 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5060 027014 004737 027416 JSR PC ,MODDSUB 
S001 027020 047777 177777 1$: “WORD 47777,-1 ZAC 
5062 027024 177000 000000 “woRD  177000,0 
5063 027030 040200 000000 000000 28: “WORD  40200,0,0.0 sF SRC 
5 27040 000 000000 3$: “WORD 0,0 “FRACTIONAL RES. 
5065 027050 047777 177777 4s: "WORD 47777.-1 ‘ INTEGER RES. 
5066 027054 177000 00 "wORD  177000,0 
5067 027060 000000 177000 5$: "WORD 0,0,177000,0  ;ERROR FRACTIONAL RES. 
5068 027070 177777 177777 177777 «68: "WORD -1,-1,-1,- “ERROR INTEGER RES. 
5069 627100 000213 7$: 213 ‘FPS BEFORE EXECUTION. 
5070 027102 000204 204 [FPS AFTER EXECUTION. 
5071 027104 104105 8$: ERROR +105 * (BUT FD) STORE x10 
5072 027106 000401 9$ 
5073 027110 104071 ERROR +71 
507% 027112 9$: 
5076 :MODD TEST WITH EXPONENT OF THE RESULT = 0 
5077 027112 HHH11: 
027112 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5078 027114 004737 027416 JSR PC ,MODDSUB 
5079 027120 040200 000000 000000 1$: “WORD  40200,0,0,0 TAC 
5080 027130 040177 072727 2$: "WORD  40177,72727 *FSRC 
5081 027134 127272 072727 "WORD 127272,72727 
5082 027140 040177 072727 3$: "WORD 40177, 72727 : FRACTIONAL RES. 
5083 027144 127272 072727 "WORD 127272,72727 
5084 027150 000000 000000 4$: “WORD 0,0,0, : INTEGER RES. 
5085 027160 177777 177777 177777 «S$: "WORD = 1-1-1, 1 “ERROR FRACTIONAL RES. 
5086 027170 000000 177777 6$: "WORD 0,0,-1,-1 ‘ERROR INTEGER RES. 
5087 027200 000200 7$: 200 ‘FPS BEFORE EXECUTION. 
5088 027202 000200 200 ‘FPS AFTER EXECUTION. 
5089 027204 104070 8$: ERROR +70 
5090 027206 000401 R 9$ 
5091 027210 1041 ERROR +106 :ST 246 TO 126 INTO 127 <BUT FD) 
2082 027212 9$: 
5094 sMODD TEST WITH EXPONENT OF THE RESULT = -115 
5095 027212 HHH12: 
027212 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5096 027214 004737 027416 JSR PC ,MODDSUB 
5097 027220 003377 177777 1$: “WORD 3377,-1 AC 
5098 027224 177777 052525 "WORD -1,52525 
5099 027230 040200 000000 000000 2$: “WORD  40200,0,0,0 :F SRC 
5100 027240 003377 177777 3$: “WORD poe “FRACTIONAL RES, 
5101 027244 177777 052525 "WORD =1,52525 
5102 027250 000 000000 000090 4$: “WORD 0,0,0,0 s INTEGER RES. 
5108 027260 177777 177777 177777 S$: "WORD #1 .-1.=1,=1 “ERROR FRACTIONAL ES. 
5104 027270 000 000000 177777 6$: "WORD 0,0,-4,-1 TERROR INTEGER RES. 
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5105 027300 000200 7$: 200 sFPS BEFORE EXECUTION. 
5106 027302 000200 200 SFPS AFTER EXECUTION. 
5107 027304 104070 8S: ERROR +70 
5108 027306 000401 BR ~ —9$ 
5109 927310 104107 ERROR +107 :ST 446 TO 126 INTO 127 (BUT FD) 
2110 027312 98: 
5112 :MODD TEST WITH EXPONENT OF THE RESULT = -63, IN ROUND MODE. 
5113 027312 HHH1 3: 
027312 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5114 027314 004737 027416 JSR PC ,MODDSUB 
| 5115 027320 040300 000000 000000 1$: “WORD  40300,0,0,0 AC 
5116 027330 020200 000000 000000 2%: “wORD  20200,0,0,1 F SRC 
5117 027340 020300 000000 000000 3$: “WORD  20300,0,0,2 S FRACTIONAL RES. 
5118 027350 000000 000000 000000 4$: .WORD 0,0,0,0 : INTEGER RES. 
5119 027360 000000 000000 177777 5$: “WORD 0,0,-1,-7 *FRROR FRACTIONAL RES. 
5120 027370 177777 177777 #177777 «= 6$: "WORD -1,-1,-1,-1 ‘ERROR INTEGER RES. 
5121 027400 000200 7$: 200 ‘FPS BEFORE EXECUTION. 
5122 027402 000200 200 ‘FPS AFTER EXECUTION. 
5123 027404 104110 8$: ERROR +110 *S$T 127 INTO RND/TR 
5124 027406 000401 BR 9$ 
$125 027410 104071 ERROR +71 
3126 027412 000137 030014 9$: JMP HHHDONE :GO TO THE NEXT TEST. 
5128 :THIS SUBROUTINE, MODDSUB, IS CALLED TO SETUP THE 
5129 ‘OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
rae :17 IS CALLED THUS: 
5132 ’ ACARG: .WORD XXX sAC OPERAND 
5133 : FSRCARG:.WORD X,X,X,X *FSRC OP 
5134 : FRES: WORD X,X,X,X SFRACTIONAL RESULT 
5135 : INTRES: .WORD X,X,X,X INTEGER RESULT 
5136 : ERFRES: .WORD X,X,X,X TERROR FRACTION RESULT 
5137 : ERINTRES:.WORD X,X,X,X TERROR INTEGER RESULT 
5138 : FPSB: .WORD xX ‘FPS BEFORE EXECUTION 
5139 : FPSA: .WORD X [FPS AFTER EXECUTION 
5740 : znR1: ERROR +X ‘FRACTION ERROR 
5141 : BR CONT 
§142 : ERR2: ERROR +X s INTEGER ERROR 
148 : CONT: *RETURN ADDRESS 
5145 ‘THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
5146 “INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
5147 “THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
5148 “THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
5149 “THEN THE FPS IS COMPARED WITH FPSA, AFTER EXECUTION IF NO ERRORS OCCURRED 
5150 “THEN MODDSUB WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 


:1T IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
7 THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 

>THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
*FAILURE MATCHES THE TRUE RESULT THEN MODDSUB PASSES CONTROL TO THE 
TERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
SNOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
sFAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 

ay A regilly MADE HOWEVER, MODDSUB WILL RETURN CONTROL TO THE ERROR 
2 CALL c. 


DFAS AI 


PAD DA AAAS 
ee ed ee ed = od 
SSe NOW BWR 
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5161 027416 012601 MODDSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
5162 027420 012700 000200 MOV #200,RO :SET FD MODE. 
$163 027424 170100 LDFPS RO 
5164 027426 010100 V 1,R :SET UP ACO 
5165 027430 172410 LDD (RO) ,ACO 
5166 027432 012700 025676 MOV #MODP1,RO :PUT A BACKROUND PATTERN INTO ACI. 
| 5167 027436 172510 LDD (RO) ACI 
5168 027440 016100 . 000060 MOV 60(R1),RO zSET UP THE FPS. 
| 5169 027444 170100 LDFPS RO 
5170 027446 012737 027462 001236 MOV #13, $TMP2 
5171 027454 010100 MOV R1,RO0 ;COMPUTE THE ADDRESS OF THE FSRC. 
2172 027456 062700 000010 AbD #10,RO 
517% 027462 171410 1$: MODD — (RO) ,ACO SEXECUTE THE TEST INSTRUCTION. 
5176 027464 170204 STFPS RG sGET THE FPS. 
5177 027466 012700 000200 MOV #200,R0 ‘SET FD MODE. 
5178 027472 170100 LDFPS RO 
5179 027474 012700 027774 . MOV #MODDTO,RO _3GET THE FRACTIONAL RESULT. 
5180 C27500 174010 STD ACO, (RO) 
5181 027502 012700 030004 MOV #MODDT1,RO :GET THE INTEGER RESULT. 
3182 027506 174110 STD AC1, (RO) 
5184 027510 010102 MOV R1,R2 sSAVE THE DATA IN CASE OF ERROR, 
5185 027512 010237 001240 . MOV R2.$TMP3 
5186 027516 062702 000010 ADD #10,R2 
5187 027522 010237 001242 MOV R2,$TMP4 
5188 027526 062702 0 ADD #10,R2 
5189 027532 010237 001244 MOV R2,$TMPS 
5190 027536 702 10 ADD #10,R 
5191 027542 010237 001246 MOV R2,$TMP6 
5192 027546 012737 027774 001250 MOV #MODDTO, $TMP7 
5193 027554 012737 03 001252 MOV #MODDT1.$TMP10 
5194 027562 016137 000062 001256 MOV 62(R1),$TMP12 
5199 027570 010437 001254 MOV R4,$TMP11 
5197 027574 012702 027774 MOV A#MODDTO,R2 sCHECK THE FRACTIONAL RESULT. 
5198 027600 010103 MOV R1_,R3 
5199 027602 062703 000020 ADD #20,R3 
5200 027606 012705 000004 MOV #4,R5 
5201 027612 022223 2$: CMP (R2)+, (R3)+ 
5202 027614 001020 BNE 10$ :BRANCH IF INCORRECT. 
5203 027616 077503 SOB R5,2$ 
5205 027620 012702 030004 MOV #MODDT1,R2 SCHECK THE INTEGER RESULT. 
5206 027624 010103 MOV R1,R3 
5207 027626 062703 000030 ADD #30,R3 
5208 027632 012705 000004 MOV #4 R5 
5209 027636 022223 3$: CMP (R2)+, (R3)+* 
5210 027640 001026 BNE 15$ :BRANCH IF INCORRECT. 
5211 027642 077503 508 RS, 3$ 
18 
5214 027644 026104 000062 CMP 62(R1),R4 sCHECK THE FPS. 
5215 027650 001042 BNE 208 ‘BRANCH IF INCORRECT. 
$217 027652 000161 000072 9$: JMP 72(R1) RETURN, 





9 
5220 027656 


5229 

2820 027710 
5232 027712 
‘See 027714 


36 
250 C27716 


Ses 027754 


3 

54 027756 
5255 027762 
5256 027770 
5257 027772 


5258 
5259 027774 


5261 030004 
5262 
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;FRACTIONAL ERROR. 
10$: 


027774 MOV #MODDTO,R2 
MOV R1,R3 
000040 ADD #6 R3 
000004 MOV #4,R5 
50$: CMP (R2)+,(R3)+ 
BNE 11$ 
S05 R5,50$ 
MOV R1,R 
000064 ADD #64 ,R2 
JMP (R2) 
11$: 
12$: ERROR +70 
BR 9$ 
s INTEGER ERROR. 
030004 15$: MOV #MODDT1,R2 
MOV 1,R3 
000050 ADD #50,R3 
000004 MOV #4,R5 
60$: CMP (R2)+,(R3)+ 
BNE 17$ 
SOB R5,60$ 
MOV R1,R2 
000070 ADD #70, R2 
JMP (R2) 
16$: 
17$: ERROR +71 
BR 9$ 


sFPS INCORRECT. 
O$: MOV 


001254 R4,$TMP11 
000062 001256 MOV . 62(R1),$TMP12 
218: ERROR +72 
BR 9$ 
000000 000000 MODDTO: .WORD 0,0,0.,0 
000000 000000 MODDT1: .WORD 0,0,0,0 
HHHDONE : 
RSETUP 


SEQUENCE 113 


zWAS THE FRACTIONAL ERROR ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 


THE ERROR WAS ANTICIPATED SO 
SRETURN TO THE ERROR REPORT AT THE 
CALLING ROUTINE. 


7; THE ERROR WAS NOT ANTICIPATED SO 
SREPORT THE INCORRECT FRACTION HERE. 


WAS THE INTEGER ERROR ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 


; THE ERROR WAS ANTICIAPTED SO RETURN 
1 Re REPORT IN THE CALLING 


THE ERROR WAS NOT ANTICIPATED SO “REPORT 
STHE INTEGER FAILURE HERE. 


REPORT INCORRECT FPS. 


:G0 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

>THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


sTEST TITLE:UNDER/OVERFLOW, USING MODF WITH TRAPS DISABLED 





5276 


5291 030066 

5292 030070 

5293 030072 

5294 

5295 

5296 030072 
030072 

5297 030074 


5301 


GUE Bese ess 
COOCOCOCCOCOCOCOoOOo 
Bsssesssss 
ESSHENSRSR 


DWDONAWHS WHO 
coscss 
SSS8 
a ed ed ed 
‘vay a 
MNOAsk & 


— =a ot — 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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\ 
So 
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030346 
045676 


000000 
045676 
000600 
177777 
177777 


030346 


00 
177777 
177777 


030346 
125252 
000000 


000000 
125252 
000000 


* 
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.SBITL TEST # 20 = SEE COMMENT ABOVE FOR TEST TITLE 


REE REE EERE RAE EERE EEE RARER EEE EEE 


S*TEST 20 SEE COMMENT ABOVE FOR TEST TITLE 

+ 

THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW CONDITIONS. IT MAKES 
“USE OF A SUBROUTINE TO SETUP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
‘®AND CHECK THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 

° 


° 
OUT TCTCCCCACCCLACCCAACAAAA SCARE CECE SEER RR SRA ASSO 


TST20: SCOPE 
{UNDERFLOw TEST, WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MODFOV 

1$: “WORD 20123,45676 ZAC 

2$: “WORD  20200,0 +F SRC 

3$: "WORD 123,45676 *FRACTIONAL RES. 

4$: “wORD 0,0 - INTEGER RES. 

S$: "WORD -1,-1 “ERROR FRACTIONAL RES. 

6$: "WORD -1.-1 TERROR INTEGER RES. 

7$: 42000 ‘FPS BEFORE EXECUTION. 
1g2004 zEPS AFTER EXECUTION. 

8$: ERROR 3170 [FEC INCORRECT, UNDERFLOW. 

pe ERROR +171 sAC V 1 (2,3) <= ZERO, ST 126. 

sUNDERFLOW EXP OF RESULT = -193, FIU = 0, FID = 1 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MODF OV 

1 “WORD  10200,0 

2$ "WORD  10000.0 :FSRC 

3$ “WORD 0,0 RACTIONAL RES 

4$ WORD 0,0 * INTEGER 

5$: "WORD -1,-1 “ERROR FRACTIONAL RES. 

6$: "WORD -1.-1 ‘ERROR INTEGER RES. 

7$: 5013 “FPS BEFORE EXECUTION. 
5004 ‘FPS AFTER EXECUTION. 
12 FEC 

8$ NOP 
BR 9$ 
ERROR +171 

9$: 

{OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1, FID = 1 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MODF OV 

1$: “WORD 60052,125252 —; AC 

2$: "WORD  60200,0 +F SRC 

3$: “wORD 0,0 SFRACTIONAL RES. 

4$: "WORD 52,125252 * INTEGER RES. 

5$: "WORD 0,0 “ERROR FRACTIONAL RES. 

6$: “WORD 0,0 ‘ERROR INTEGER RES. 
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5321 030202 041000 7$: 
5322 030204 141006 
5323 030206 000010. 
5324 030210 104172 8$: 


5325 030212 000401 
2356 030214 104173 


2 
5328 030216 9$: 
5329 


5330 
5331 030216 
03021 


9 
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41000 ;FPS BEFORE EXECUTION. 
> zEPS AFTER EXECUTION. 
pee nM BAD FEC ON OVERFLOW. 
ERROR +173 3ST 520 TO STORE ZERO TWICE 
INTO 162 


sOVERFLOW TEST WIT: EXPONENT OF THE RESULT = 130, FIV = 0, FID = 1 


216 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5332 030220 004737 030346 JSR PC ,MODFOV : 
5333 030224 060345 067654 1$: “WORD 60345,67654 AC 
5334 030230 060200 000000 2$: "WORD  60200,0 FSRC 
5335 030234 00 3$ “wORD 0,0 ‘FRACTIONAL RES. 
030240 000000 000000 4$ “WORD 0.0 S INTEGER RES. 
5337 030244 000 5$ "WORD 0.0 ‘ERROR FRACTIONAL RES 
030250 000345 067654 6$ "WORD 345,67654 ‘ERROR INTEGER RES. 
5339 030254 006011 7$ 6011 ‘FPS BEFORE EXECUTION. 
5340 030256 006006 6006 ‘FPS AFTER EXECUTION. 
030260 000010 10 TFEC 
5342 030262 000240 8$ NOP 
5343 030264 000401 BR 9$ 
5344 030266 104174 ERROR +174 :ST 520 TO 162 INTO STORE ZERO TWICE. 
3349 030270 9$: 
5347 OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, RESULT NEGATIVE 
5348 AND FIV = 1, FID = 1 
5349 030270 
~ 030270 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5350 030272 004737 030346 JSR PC ,MODFOV 
5351 030276 160252 125252 1$: “WORD 160252,125252 AC 
5352 030302 060000 000000 2$: “WORD 60000,0 *FSRC 
5353 030306 000000 000000 3$: “WORD 0 ‘FRACTIONAL RES. 
5354 030312 100052 125252 4$: "WORD  100052,125252 INTEGER RES. 
5355 030316 000000 000000 5$: “WORD ‘ERROR FRACTIONAL RES. 
5356 030322 000052 125252 6$: "WORD 52,125252 : ERROR INTEGER RES. 
5357 030326 041000 7$: 41000 FPS BEFORE EXECUTION. 
5358 030330 141006 141006 ‘FPS AFTER EXECUTION. 
5359 030332 000010 10 TFEC 
30334 104172 8$: ERROR +172 
5361 030336 000401 BR 9$ 
5362 030340 104175 ERROR +175 T 517, BAD SIGN. 
3363 030342 000137 030742 9$: JMP MMMDONE ;:GO TO rie "ext TEST. 
5365 : THIS SUBROUTINE, MODFOV, IS CALLED TO SETUP THE 
5366 ‘OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
yt atv es CALLED THUS: 
5369 : ACARG: x :AC OPERAND 
0 : FSRCARG:.WORD X,X *FSRC OPERAND 
1 : : x ‘FRACTIONAL RESULT 
73 : x 
€ oX 
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5376 ; FPSA: .WORD X sFPS AFTER EXECUTION 
5377 ; FEC: ~WORD x é 
5378 : ERR1: ERROR +X ‘FEC ERROR 
5379 ; BR CONT 
5380 : ERR2: ERROR +X s INTEGER ERROR 
rt 4 3 CONT: RETURN ADDRESS 
5383 “THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODF 
5384 S INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
5385 ‘ “THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
5386 “THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
5337 “THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
5388 [THEN MODFOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
5389 *1T IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
5390 *THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 
5391 “THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
5392 “FAILURE MATCHES THE TRUE RESULT THEN MODFOV PASSES CONTROL TO THE 
5393 ERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
5394 ‘NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
5395 “FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
5396 [IF A MATCH IS MADE HOWEVER, MODFOV WILL RETURN CONTROL TO THE ERROR 
Frade :CALL AT ERR2. 
5399 030346 012601 MODFOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
5400 030350 012700 000200 MOV #200,RO ‘SET FD MODE. 
5401 030354 170100 LDFPS RO 
5402 030356 010100 MOV R1,RO :SET UP ACO 
5403 030360 172410 LDD (RO) ,ACO 
5404 030362 012700 025676 MOV #MODP1,RO ;PUT A BACKROUND PATTERN INTO AC1. 
5405 030366 172510 LDD (RO) ,ACT 
406 030370 016100 000030 MOV 30(R1),RO :SET UP THE FPS. 
5407 030374 170100 LDFPS RO 
5408 030376 012737 030412 001236 MOV #1$,$TMP2 
5409 030404 010100 MOV R1,RO sCOMPUTE THE ADDRESS OF THE FSRC. 
2410 030406 062700 000004 ADD #4,RO 
5412 030412 171410 1$: MODF (RO) ,ACO sEXECUTE THE TEST INSTRUCTION. 
5414 030414 170204 STFPS R4 ;GET THE FPS. 
5415 030416 170305 STST RS 'GET FEC. 
5416 030420 012700 000200 MOV #200,RO “SET FD MODE. 
5417 030424 170100 : LDFPS R 
5418 030426 012700 030722 MOV #MODFDO,RO :GET THE FRACTIONAL RESULT. 
5419 030432 174010 STD ACO, (RO) 
5420 030434 012700 030732 MOV #MODFD1,RO :GET THE INTEGER RESULT. 
342 030440 174110 STD AC1, (RO) 
5423 030442 010102 MOV R1,R2 :SAVE THE DATA IN CASE OF ERROR. 
5424 030444 010237 00124 MOV R2.$TMP3 
5425 030450 062702 000004 ADD #4,R 
5426 030454 010237 001242 MOV R2.$TMP4 
5427 030460 062702 000004 ADD #4,R2 
5428 030464 010237 001244 MOV R2.$TMP5 
030470 062702 00 ADD #4,R2 
5430 030474 010237 001246 MOV R2.$TMP6 
5431 030500 012737 030722 001250 MOV #MODF DO, $TMP7 
5432 030506 012737 030732 001252 MOV #MODFD1.$TMP10 





| N 9 
CKFPBBO_FP11F ‘tS PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 30-3 


NT ABOVE FOR TEST TITLE 


TEST # 20 = SEE 
5433 030514 
5434 030520 

5 30526 

aes 030532 


5438 030540 
5439 030544 


5452 
5453 030612 
5454 030616 
5455 
5456 030620 
5457 


5458 
5459 030624 
5460 030624 
5461 030626 
5462 


5469 030650 
5470 
5471 030654 
5472 
5473 030656 
5474 030656 





026105 
001030 


000161 


104165 
000774 


026112 


104166 
000757 


001254 

000032 
001260 
000034 
030722 
000010 
000012 
030732 
000014 
000016 
000032 
000034 


000044 


000024 
000026 


000042 


001254 
000032 


001260 
000034 


000036 


001256 
001262 


000002 


000002 


000002 


001256 


001262 


MOV $TMP11 
MOV 3th), SINPI2 
MOV 
MOV Riki), Sim 14 
MOV #MODFDO,R2 
CMP 10(R1), (R2) 
BNE 10$ 
CMP 12(R1) ,2(R2) 
BNE 103 
MOV #MODFD1,R2 
CMP 14(R1), (Re) 
BNE 15$ 
CMP 16(R1) ,2¢R2) 
BNE 15$ 
CMP 32(R1),R4 
BNE 20$ 
CMP 34(R1).R5 
BNE 25$ 

9$: JMP 44(R1) 

{FRACTIONAL ERROR. 

12$: ERROR +165 
BR 9$ 

: INTEGER ERROR. 

15$: CMP 24(R1), (R2) 
BNE 16 
CMP 26(R1), 2(R2) 
BNE 
MOV Ri — 
ADD #42,R2 
JMP (R2) 

16$: 

17$: ERROR +166 
BR $ 

-FPS INCORRECT. 

0$: MOV R4,$TMP11 
MOV 22(R1),$1MP12 

21$: ERROR +167 
BR 9 

“REPORT FEC ERROR. 

5$: MOV R5,$TMP13 
MOV 34 (R1),$1MP14 
MOV R1,R2 
ADD #36,R2 
JMP (R2) 
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CHECK THE FRACTIONAL RESULT. 
;BRANCH IF INCORRECT. 


CHECK THE INTEGER RESULT. 
;BRANCH IF INCORRECT. 


';CHECK THE FPS 


‘BRANCH IF INCORRECT. 


;CHECK THE FEC. 
;BRANCH IF INCORRECT. 


RETURN. 


; THE ERROR WAS NOT ANTICIPATED SO 
SREPORT THE INCORRECT FRACTION HERE. 


WAS THIS ERROR ANTICIPATED? 
;BRANCH IF NOT. 


; THE ERROR WAS ANTICIAPTED S0 RE TURN 
$70 THE ERROR REPORT IN THE CALLING 


;THE ERROR WAS NOT ANTICIPATED SO REPORT 
STHE INTEGER FAILURE HERE. 


REPORT INCORRECT FPS. 
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coy 030722 000000 000000 000000 MODFDO: .wORD 0,0,0,0 
2188 030732 000000 000000 000000 MODFD1: .wORD 0,0,0.0 


5494 930742 MMMDONE : 
030742 104412 RSé TUP A INITIALIZE THE FPS AND STACK; AND 


; THE DESIRE TO CHANGE THE SOFTWARE 
ZVIRTUAL CONSOLE SWITCH + hepa (HAS 
; THE USER TYPED CONTROL G?) 


ZTEST TITLE:UNDER/OVERFLOW, USING MODD WITH TRAPS DISABLED 
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TES! # 21 = SEE COMMENT ABOVE FOR TEST TITLE 


5507 _SBITL TEST # 21 = SEE COMMENT ABOVE FOR TEST TITLE 
FURR AREA AAA A AERA AERA A ARERR ARERR ARERR ERE EE ERS 
:#TEST 21 SEE COMMENT ABOVE FOR TEST TITLE 
‘ STHIS IS A TEST OF THE MODD INSTRUCT ION" S OVER FLOW AND UNDER FLOW 
S*CONDITIONS. A SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE THE 
t*MODD INSTUCTION AND CHECK THE RESULTS 
** 
SRR RRR AERA EERE EEE R ARR EERE EERE REAR EERE EEE EER 
5508 030744 000004 TST21: SCOPE 
5509 —e TEST WITH EXPONENT OF .THE RESULT = -129, FIU = 1, FID = 1 
5510 030746 NNN1 
030746 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5511 030750 004737 031362 JSR Sey 
5512 030754 020252 125252 1$ "WORD 20859,125252_ AC 
5513 030760 125252 125252 “WORD 125252 12525 
5514 030764 020100 000 000000 2%: “WORD ,0, FSRC 
5515 030774 000177 177777 177777 38: “WORD 7 wt pe gh ‘FRACTIONAL RES. 
5516 C31 0000 000000 4$: “WORD 0.0 : INTEGER RES. 
5517 031014 020252 125252 5$: “WORD 26¢ §3°125252 ERROR FRACTIONAL RES. 
5518 031020 125252 12525 “WORD 125252,125252 
5519 031024 177777 6$: “WORD 0° 0,-1,-1 ZERROR INTEGER RES. 
5520 0310 200 7$: 42200 “FPS BEFORE EXECUTION. 
5521 031036 142204 142204 “FPS AFTER EXECUTION. 
5522 031040 12 12 FEC 
5523 031042 104201 8$ ERROR +201 “FEC INCORRECT ON UNDERFLOW. 
5524 031044 01 BR 9$ 
5525 031046 104202 ERROR +202 :ST 155 (BUT FD) 
2526 631050 9$: 
5528 sUNDERFLOW TEST WITH EXPONENT OF THE RESULT = -193, FIU = 0, FID = 
5529 031050 NNN2 : 
031050 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5530 031052 004737 031362 JSR PC ,MODDOV 
5531 031056 010000 000000 1$: . WORD 000.0 ZAC 
5532 031062 123456 “WORD 123456,0 
5533 031066 010200 000000 000 2%: "wORD 10200,0,0, FSRC 
5534 031076 000000 000000 000000 3$: “WORD 0,0,0.0 ‘FRACTIONAL RES. 
5535 031106 000000 000000 000000 4$: “WORD 0.0.0.0 INTEGER RES. 
5536 031116 000000 000000 000000 5$: “wORD 0.0.0.0 TERROR FRACTIONAL RES 
5537 031126 000000 63: “wORD 0.0 TERROR INTEGER RES. 
5538 031132 123456 000000 "WORD 123456,0 
5539 031136 005213 7$: 5213 :FPS BEFORE EXECUTION. 
5540 031140 005204 5204 SFPS AFTER EXECUTION. 
5541 031142 000012 12 
5542 031144 000240 8$ NOP 
5543 031146 000401 BR 9$ 
5544 031150 104203 ERROR +203 :ST 047 (BUT FD). 
2545 031152 9$: 
5547 A OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1, FID = 
5548 031152 NNN : 
031152 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5549 031154 004737 031362 JSR PC ,MODDOV 
5550 031160 060252 125252 1$ “WORD 60252,12525 ZAC 
5551 031164 125252 125252 "WORD 125252,1252 385 
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5552 031170 060100 000000 000000 2%: .WORD 60100,0,0,0 sF SRC 
5553 031200 000000 000000 000000 38: “wORD 0,0,0,0 “FRACTIONAL RES. 
5554 031210 000177 177777 177777 4$: "WORD 177.-1,-1,21 “INTEGER RES. 
5555 031220 000000 000000 000000 5$: "wORD 0,0.0,0 “ERROR FRACTIONAL RES. 
5556 031230 000177 177777 6$: "WORD 177.1 ‘ERROR INTEGER RES. 
5557 031234 125252 125252 "WORD  125252,125252 
5558 031240 041200 7$: 41200 :FPS BEFORE EXECUTION. 
5559 031242 141206 141206 “FPS AFTER EXECUTION. 
5560 031244 000010 10 FEC 
5561 031246 104204 8$: ERROR +204 ‘FEC BAD ON OVERFLOW. 
5562 031250 000401 BR 9$ 
5563 031252 104205 ERROR +205 :$T 520 TO 162 INTO 163 (BUT 7D). 
2364 031254 9$: 
5566 sOVERFLOW TEST WITH EXPONENT OF THE RESULT = 130, FIV = 0, FID = 1 
5567 031254 NNNG : | 
031254 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5568 031256 004737 031362 JSR PC ,MODDOV 
5569 031262 060200 000000 1$: “WORD  60200,0 ZAC 
5570 31266 125252 000000 "WORD 125252,0 
5571 031272 060200 000000 000000 2$: “WORD 66200- 6.0.0 FSRC 
5572 031302 000000 000000 000000 3$: "WORD 0,0,0.0 * FRACTIONAL RES. 
5573 031312 000000 000000 000000 4$: “WORD 0.0.0.0 “INTEGER RES. 
5574 031322 000000 000090 000000 5$: "WORD 0.0.0.0 SERROR FRACTIONAL RES. 
5575 031332 000400 000000 63: "WORD 400.0 “ERROR INTEGER RES. 
5576 031336 125252 000 "WORD 125252,0 
5577 031342 006211 7$: 6211 :FPS BEFORE EXECUTION. 
5578 031344 006206 6206 “FPS AFTER EXECUTION. 
5579 031346 000010 10 FEC 
5580 031350 000240 8S NOP 
5581 031352 000401 BR 
5582 031354 104206 ERROR 506 :$T 520 TO 162 INTO STORE ZERO TWICE. 
9583 031356 000137 031770 9$: JMP NNNDONE ;GO TO NEXT TEST. 
5585 :THIS SUBROUTINE, MODDOV, IS CALLED TO SETUP THE 
5586 * OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
rs 4 217 Is CALLED THUS: 
5589 : ACARG: .WORD X,X,X,X ZAC OPERAND 
5590 2 F SRCARG: .WORD KLX,X LM eFSRC OPERAND 
5591 : FRES: .WORD X.X.X,X *FRACTIONAL RESULT 
5592 : INTRES: .WORD X.X.X.X ‘INTEGER RESULT 
5593 b ERFRES: .WORD KXX_XM * ERROR FRACTION RESULT 
594 Z ot + htt ~WORD X,X,X,&X :ERROR INTEGER RESULT 
5595 : PSB: .WORD X [FPS BEFORE EXECUTION 
5596 : PPSAi "WORD X “FPS AFTER EXECUTION 
5597 2 ERR1: ERROR +X : FRACTION ERROR 
5598 Z BR CONT 
5599 : ERR2: ERROR +X s INTEGER ERROR 
3600 ; CONT : *RETURN ADDRESS 
5602 STHE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
5603 S INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
5604 ; THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THiS IS CORRECT 
5605 ; THEN THE INTEGER PART IS COMPARE D WITH INTRES. IF BOTH OF THESE ARE CORRECT 
5606 “THEN THE FPS 1S COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 


5607 :THEN MODDOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 


[nn ee 
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| TEST # 21 = SEE COMMENT ABOVE FOR TEST TITLE 
5608 :17 IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
“THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN’T MATCH 
5610 [THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
5611 “FAILURE MATCHES THE TRUE RESULT THEN MODDOV PASSES CONTROL TO THE 
5612 TERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
5613 “NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
5614 SFAILURE. If THIS DOEN’T MATCH THEN THE ERROR IS REPORTED HERE. 
5615 TIF A MATCH IS MADE HOWEVER, MODDOV WILL RETURN CONTRO! TO THE ERROR 
2616 “CALL AT ERR2. 
5618 031362 012601 MODDOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
5619 031364 012700 000200 MOV #200,R0 “SET FD MODE. 
5620 031370 170100 LDFPS RO 
$621 031372 010100 MOV 1,RO :SET UP ACO 
5622 031374 172410 LDD (RO), ACO 
5623 031376 012700 025676 MOV.  #MODP1,RO :PUT A BACKROUND PATTERN INTO AC1. 
5624 031402 172510 LDD (RO) ACT 
5625 031404 016100 000060 MOV 60(R1) ,RO :SET UP THE FPS. 
5626 031410 170100 LDFPS RO 
5627 31412 012737 031426 001236 MOV #1$,$TMP2 
5628 031420 010100 MOV R1,RO =COMPUTE THE ADDRESS OF THE FSRC. 
3629 031422 062700 000010 ADD #10,RO 
3631 031426 171410 1$: MODD (RO), ACO ZEXECUTE THE TEST INSTRUCTION. 
5633 031430 170305 STST = RS :GET THE FPS. 
5634 031432 170204 STFPS RS ;GET THE FPS. 
5635 031434 012700 000200 : MOV #200,RO *SET FD MODE. 
5636 031440 170100 LDFPS RO 
5637 031442 012700 031750 MOV #MODDDO, RO :GET THE FRACTIONAL RESULT. 
5638 031446 174010 STD ACO, (RO) 
5639 031450 012700 031760 MOV #MODDD1,RO :GET THE INTEGER RESULT. 
3640 031454 174110 STD AC1, (RO) 
5642 031456 010102 MOV R1,R2 sSAVE THE DATA IN CASE OF ERROR. 
5643 031460 010237 001240 v R2.$TMP3 
5644 031464 062702 000010 ADD " 
5645 031470 010237 001242 MOV R2,$TMP4 
5646 031474 062702 0 ADD #10,R2 
5647 031500 010237 001244 MOV R2,$TMPS 
5648 031504 062702 000010 ADD #10,R2 
5649 031510 010237 001246 MOV R2,$TMP6 
5650 031514 012737 031750 001250 MOV #MODDDO, $TMP7 
5651 031522 012737 031760 001252 MOV #MODDD1, $TMP10 
5652 031530 010437 001254 MOV R4,$TMP11 
5653 031534 016137 000062 001256 MOV 62(R1),$TMP12 
5654 031542 010537 001260 MOV RS, $TMP13 
3655 031546 016137 000064 001262 MOV 64(R1),$TMP14 
5657 031554 012702 031750 MOV #MODDDO,R2 sCHECK THE FRACTIONAL RESULT. 
5658 031560 010103 MOV R1,R3 
5659 031562 062703 000020 ADD #20,R3 
5660 031566 012700 000004 MOV #4,RO 
5661 031572 022223 2$: CMP (R3)+, (R3)+ 
5662 031574 001023 BNE 10$ :BRANCH IF INCORRECT. 


5663 031576 077003 SOB RO,2$ 
5664 
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5665 031600 012702 031760 Mov —- #MODDD1,R2 CHECK THE INTEGER RESULT. 
5666 031604 010103 Mov —_ R17, RB 

5667 031606 062703 000030 ADD —«- #30, R3 

5668 031612 012700 000004 Mov «#4, RO 

5669 031616 022223 3$: CMP (RD) +, (R3)+ 

5670 031620 001013 BNE 15$ BRANCH IF INCORRECT. 

5671 031622 077003 SOB ~—Ss«RO, 38 : 





a 


---- ——__- ——_ —- - -- - C+ 


' 


pore 


267 
3675 031624 
rg | 031630 


56 
5678 031632 
031636 


5681 031640 


' 
| 


5697 031676 
5698 
5699 031702 


5712 031726 
5713 031732 
5714 031740 
5715 031742 
5716 031746 
5717 
5718 031750 
719 
2760 031760 
5722 031770 
031770 


—_————_—__-—-—_-——_—_——- --——_ - - --—— 


000000 


104412 


| CKEPBBO FPTIF FLTG PNT PRT 8B 
| TEST # 21 = SEE COMMENT ABOVE FOR TEST TITLE 


000062 
000064 


000074 


031760 


000050 
000004 


000072 


001254 
000062 


001260 
000064 


000066 


000000 
000000 
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001256 


001262 


000000 
000000 


CMP 62(R1) RG 
20$ 


BNE 
CMP 64(R1) ,R5 
BNE 25$ 

9$: JMP 74(R1) 


{FRACTIONAL ERROR. 
12$: ERROR +176 
BR 9$ 


; INTEGER ERROR. 


15$: | MOV #MODDD1,R2 
MOV R1,R3 
ADD #50,R3 
MOV #4,R5 

60$: CMP (R2)+,(R3)+ 
BNE 17$ 
S08 R5,608° 
MOV R1-R2 
ADD #72,R2 
JMP (R2) 

16$: 


17$: ERROR +267 
BR 9$ 


FPS INCORRECT. 
20$: MOV R4,$TMP11 

MOV 62(R1),$TMP12 
21$: ERROR +200 
BR 9 


;REPORT FEC ERROR, 


55$: MOV R5.$TMP13 
MOV 64iR1), eis 
MOV 
ADD nee ke 
JMP (R2) 
MODDDO: .wORD 0,0,0,0 
MODDD1: .WORD 0,0.0,0 
NNNDONE : 
RSETUP 





;CHECK THE FPS. 


BRANCH IF INCORRECT. 
;CHECK THE FEC. 


;RETURN. 


WAS THE INTEGER ERROR ANTICIPATED? 


THE ERROR WAS NOT ANTICIPATED SO 
TREPORT THE INCORRECT FRACTION HERE. 


BRANCH IF NOT ANTICIPATED. 


THE ERROR WAS ANTICIAPTED SO RETURN 
A By ERROR REPORT IN THe CALLING 


;THE ERROR WAS NOT ANTICIPATED SO REPORT 


;THE INTEGER FAILURE HERE. 


REPORT INCORRECT FPS. 


3GO INITIALIZE THE FPS AND STACK; AND 


SEE IF THE USER HAS EXPRESSED 


TTHE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH 5 pees (HAS 


;THE USER TYPED CONTROL G?) 


SEQUENCE 


125 
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| TEST # 22 = INTERRUPT CORRECT FLOWS TEST 


5766 .SBITL TEST # 22 = INTERRUPT CORRECT FLOWS TEST 


| RE REEREAEARAEREAARARAEEE AAA AREREARAERAREARARAERAERRAAAAHEAE REA 


:STEST 22 INTERRUPT CORRECT FLOWS TEST 


| THIS IS A TEST OF THE ‘CORRECT’ FLOWS. THIS PART OF THE MICRO CODE 
z*HAS AS ITS PURPOSE INSURING THAT INTERRUPT REQUESTS MADE DURING 

:*CERTAIN LENGTHY FPP INSTRUCTIONS GET HONORED. THIS IS DONE 

‘ 7*IN A WAY SUCH THAT IF AN INTERRUPT REQUEST OCCURS DURING ONE 

y*OF THESE INSTRUCTIONS THE STATE OF THAT INSTRUCTION'S 
T*EXECUTION WILL BE THE SAME AS IF THAT INSTRUCTION HAD NEVER 

:*BEEN FETCHED AND ITS EXECUTION NEVER STARTED. THUS THE MICRO CODE 

y*WILL RESTORE ALL REGISTERS, BACK UP THE PC AND LEAVE THE 

>*FPS AND ACO THROUGH ACS UNMOD IF IED. 

+ THE INSTRUCTIONS FOR WHICH THIS IS NECESSARY ARE: 

ADD (OR SUB) 
e DIV 
* MUL 


MOD 
: «(BOTH DOUBLE AND FLOATING) 
7*ALL ADDRESSING MODES WILL BE TRIED WITH THE ADDD INSTRUCTION. THEN 
:*EACH OF THE OTHER INSTRUCTIONS WILL BE TRIED USING MODE 1. 
:*NOTE THAT THIS TEST NEEDS A SPECIAL INTERRUPT MODULE, 
7*WHICH WILL PROBABLY ONLY BE PRESENT IN DEC*S MANUF AC TURING ENVIRONMENT , 
7*TO RUN. THIS SPECIAL EQUIPMENT IS DESIGNED TO RAISE AN 
:*INTERRUPT REQUEST IN THE PROCESSOR IF A BIT IS SET IN ITS STATUS 
:*REGISTER AND ONLY WHEN AN FPP INSTRUCTION IS ENCOUNTERED. 
> * THEREFORE THIS TEST WILL BE RUN CONDITIONALLY (DEPENDENT UPON WHE THE 
:*O0R NOT THE STATUS REGISTER OF THE TEST EQUIPMENT TIMES OUT WHEN REFERENCED) . 
>*THIS TEST CAN ALSO BE DESELECTED BY TURNING SWITCH 7 OF THE 
T*SWITCH REGISTER (PHYSICAL OR VIRTUAL) ON. 
[*THE TEST ASSUMES THAT THE TEST EQUIPMENT’S STATUS REGi_ :R IS AT 
S*LOCATION 777774 (NOTE THAT ALL REFERENCES TO THIS LOCATION " 
;*MADE INDIRECT THROUGH THIS PROGRAMS LOCATION CORINT, SO T 
y*IF THE USER HAS MODIFIED THE TEST EQUIPMENT'S STATUS REGISTER TO 
>*RESPOND TO A DIFFERENT ADDRESS LOCATION CORINT we, BE 
z7*MADE TC CONTAIN THAT STATUS REGISTER'’S NEW ADDRESS) 
>*THIS PROGRAM ASSUMES THAT THE TRAP VECTOR FOR THE TEST EQUIPMENT IS 110. 
:*AGAIN NOTE THAT ALL REFERENCES TO THIS TRAP VECTOR ~ INDIRECT, THROUGH 
7*THIS PROGRAM'S LOCATION CORTRP (IF THE TEST EQUIPMENT IS 
:*MADE TO TRAP TO A DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 
T*ADDRESS OF THIS VECTOR). 
-* 


Spee eee eee eee e NRE T ET ERRATA REAR RAE E KEKE RS ERE EKER e TS 
> 031772 000004 TST22: SCOPE 

5768 031774 132737 000200 001337 BITB #200, $ENVM SEE IF APT IS SELECTING TEST. 
5769 032002 001406 BEQ COR1 [BRANCH TO AUTOSIZE IF NOT. 
5770 032004 032777 000200 147126 BIT #200,aSwWR 7SEE IF THE USER HAS SELECTED THIS 
5771 TEST USING THE SWITCH REGISTER, 
5772 032012 001022 BNE COR3 :1F SO, PERFORM TEST. 
Ak 032014 000137 033152 JMP CORDONE ;ELSE DO NOT RUN TEST. 
5775 032020 012737 032044 000004 CORI: MOV MCOR2,ERRVECT ;SEE IF THE TEST EQUIPMENT’S STATUS 
5776 032026 012777 000000 001112 MOV #0 ,acORINT REGISTER TIMES OUT. 
5777 032034 012737 037032 000004 . MOV #CPSPUR ,ERRVECT 

000406 BR COR3 DIDN'T TIME OUT SO START TEST. 


5778 032042 
5779 
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5780 032044 022626 COR2: CMP 
5781 032066 012737 €37032 000004 MOV 
| 3782 03205% 000137 033152 MP 
5784 zTEST ADDD MODE 
5785 032060 COR3: 
$786 032060 005227 177777 INC 
5787 032 001002 E 
5788 032 104401 TYPE 
5789 032070 04000 wORD 
5790 032072 COR33 
5791 032072 104413 LPERR 
5792 032074 004737 032652 JSR 
5793 032100 040200 000100 000200 1$: . WORD 
$794 032110 123456 2$: wORD 
5795 032112 0002 3$ 200 
5796 032114 172000 4$ ADDD 
5797 032116 000240 NOP 
5798 032120 005037 033134 CLR 
5799 032124 104252 ERROR 
5800 032126 000401 BR 
$801 032130 104253 5$: ERROR 
5802 032132 11$: 
5803 TEST ADD MODE 1. 
5806 032132 COR4 
032132 104413 LPERR 
5805 032134 004737 032652 JSR 
§806 032140 040201 000555 077007 1$: . WORD 
5807 032150 032140 2$: . WORD 
5808 032152 000217 3$: 217 
5809 032154 172010 4$: ADDD 
5810 032156 000240 NOP 
5811 032160 005037 033134 CLR 
5812 032164 104252 ERROR 
5813 032166 0 
$814 932170 104254 ERROR 
5815 032172 11$: 
5816 
5817 TEST ADDD MODE 
5818 032172 
032172 104413 LPERR 
5819 032174 004737 032652 JSR 
$820 032200 040202 111333 052525 1$: . WORD 
5821 032210 032200 23: . WORD 
5822 032212 3$ 205 
$823 032214 172020 4$ ADDD 
5824 032216 000240 NOP 
$825 032220 005037 033134 CLR 
$826 032224 104252 ERROR 
5827 032226 
$828 032230 104255 ERROR 
5829 032232 11$: 
5830 
5831 zTEST ADDD MODE 
$832 032232 COR6: 
032232 104413 LPERR 
5833 032234 004737 032652 JSR 
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SEQUENCE 


(SP)+,(SP)+ yIF THE REFERENCE TIMES OUT DO 
#@CPSPUR ,ERRVECT 

CORDONE ;NOT RUN TEST. 

0 


a1 
COR33 


CORME S 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC, CORSUB 
40200,100,200, 300 3AC0 
123456 ;RO 


sFPS 
s TEST INSTRUCTION. 


CORFLG sRESET INTERRUPT FLAG 
Ty NO INTERRUPT! TEST EQUIPMENT FAILED. 
+253 zs INCORRECT STATE AT INTERRUPT. 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC, CORSUB 
40201,555,77007,111111 ;ACO 
1$ :RO 
sFPS . 
(RO) ,ACO : TEST INSTRUCTION 
CORFLG ;RESET DEPORT. FLAG 
+ Py REPORT FAILURE. NO INTERRUPT. 
+254 
2 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC, CORSUB 
40202,111333,52525,70707 ACO 
1$ RO 
sFPS 
(RO)+,ACO sTEST INSTRUCTION 
CORFLG ;RESET - INTERRUPT FLAG 
+ REPORT FAILURE. NO INTERRUPT. 
+255 :CORRECT FLOWS FAILED. 
3 


7SET UP THE LOOP ON ERROR ADDRESS. 
PC, CORSUB 


125 
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ST # 22 = INTERRUPT CORRECT FLOWS TEST 


| 
| 
| §834 032240 040203 071735 072746 18: WORD 40203,71735,72746,1 ZACO 
| 35 032250 032274 2$: “WORD 108 ;RO 
5836 032252 000206 3$: 206 FPS 
5837 032254 172030 i$: ADDD  a(RO) +, ACO ‘TEST INSTRUCTION 
5838 032256 240 
032260 005037 033134 LR CORFLG :RESET THE INTERRUPT FLAG 
0 0322 104252 ERROR +252 ‘REPORT FAILURE, NO INTERRUPT. 
5841 032266 03 BR 11$ 
5842 032270 104256 5$: ERROR +256 :CORRECT FLOWS FAILED. 
5843 032272 000401 BR 113 
5844 032274 032240 10$:  .WORD 1$ ZUSED FOR THE ADDRESSING OF THE OPERAND 
584 ‘IN THIS MODE. 
5846 032276 11$: 
5847 :TEST ADDD MODE 4 
5848 032276 COR?: 
032276 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
9 032300 004737 032652 JSR Po, CORSUB 
032304 040204 123456 070123 18: “WORD 40204, 123456, 70123,45671 ACO 
5851 032314 032314 2$: “WORD 1$+10 :RO 
5852 032316 212 3$: 312 “FPS 
5853 032320 172040 4$: ADDD —- =(RO) ,ACO :TEST INSTRUCTION 
5854 032322 240 
5855 032324 005037 033134 LR CORFLG ;RESET THE INTERRUPT FLAG 
5856 032330 104252 ERROR +252 sREPORT FAILURE. NO INTERRUPT. 
5857 032332 401 11$ 
5858 032334 104257 ERROR: +257 S CORRECT FLOWS FAILED 
5859 032336 11$: 
5860 
5861 TEST ADDD MODE 5 
5862 032336 
032336 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5863 032340 737 032652 JSR PC, CORSUB 
032344 040205 076543 021076 18: “WORD 40205, 76543,21076,54321 ;ACO 
5865 032354 032402 2$: “WORD 1042 -RO 
5866 032356 213 3$: 313 “FPS 
5867 032360 172050 4S: ADDD a-(RO),ACO : TEST INSTRUCTION 
5868 032362 240 NOP 
32364 005037 033134 CLR CORFLG :RESET THE INTERRUPT FLAG 
5870 032370 104252 ERROR +252 ;REPORT ERROR. NO INTERRUPT. 
5871 032372 000403 11$ 
5872 032374 104260 S$: ERROR +260 SCORRECT FLOWS FAILED. 
5873 032376 01 BR 11$ 
5874 032400 032344 10$: .WORD 1$ 
5875 032402 118: 
5876 
5877 :TEST ADDD MODE 6 
5878 032402 COR9: 
032402 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5879 032404 004737 032652 JSR PC, CORSUB 
5880 032410 040206 034353 063730 1S: WORD 40206, 34353,63730, 31323 :ACO 
5881 032420 032407 2$: "WORD 1$-1 RO 
5882 032422 21 3$: 314 tFPS 
aR 032424 172 000001 4s: ADDD _—-1(RO) ,ACO TEST INSTRUCTION 
5884 032430 005037 033134 CLR CORFLG 
5885 032434 104252 ERROR +252 ;REPORT FAILURE NO TRAP. 
5886 032436 000401 11$ 
5887 032640 104261 5$: ERROR +261 





co 
| 
| 
| 
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$888 032442 
5889 


90 
5891 032442 
032652 


413 

737 

210 070107 062426 
503 


000204 
5896 0 172070 000001 
5897 032470 005037 033134 


03265 


2 
033445 056677 


033134 


032652 


165411 046252 


033134 


032652 
045654 054542 


5940 032632 000 


5$: 
11$: 


3; TEST MULD MODE 


COR12: 


1$: 
2$: 
3$: 
4$: 


5$: 
11$: 


3; TEST MODD MODE 


COR13: 
1$: 
2$: 


3$: 
4%: 
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SEQUENCE 


ADDD MODE 7 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, CORSUB 
“WORD 40210, 70107,62426,55555 ;ACO 
"WORD 108-1 RO 
204 sFPS 
ADDD  a1.RO),ACO ‘TEST INSTRUCTION 
CLR CORFLG 
ERROR +252 :REPORT FAILURE NO TRAP 
ERROR +262 s CORRECT FLOWS FAILED. 
BR 11$ 
,WORD 1$ 
DIVD MODE 1 
LFERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,CORSi 
“WORD 40211, 33445,56677,001122 sACO 
"WORD 1$ RO 
205 sFPS 
they (RO) ,ACO ; TEST INSTRUCTION 
CLR CORFLG 
ERROR a ;REPORT FAILURE, NO TRAP. 
ERROR +263 s CORRECT FLOWS FAILED. 


7SET UP THE LOOP ON ERROR ADDRESS. 
PC, CORSUB 
SBeT., 1560). ARNE AEE 3ACcO 


210 FPS 
(RO), ACO ; TEST INSTRUCTION 
CORFLG 
size ;REPORT FAILURE, NO TRAP. 
+264 : CORRECT FLOWS FAILED. 
1 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC,CORSUB 
40213,45654,54542,171623 ZACO 
1$ RO 
412 sFPS 
(RO) .ACO ‘TEST INSTRUCTION. 


ee 


127 


~—-- + - - 7 


omens athe, en . : * 
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TEST # 22 = INTERRUPT CORRECT FLOWS TEST 
| 5941 032634 005037 033134 CLR CORFLG 
5942 032640 104252 ERROR MF 2 ;REPORT FAILURE NO TRAP. 
5943 032642 000401 ah 11$ 
5944 032644 104265 5$: ERROR +265 ; CORRECT FLOWS FAILED. 
faz 032646 000137 033152 11$: JMP CORDONE FINISHED TEST! 
5947 THIS SUBROUTINE, CORSUB, IS CALLED TO SET UP THE OPERANDS 
rey AND CHECK THE RESULTS IN THIS TEST. IT IS CALLED THUS: 
5950 : JSR PC, CORSUB 
5951 5 1$: 7 D XXXX 3;ACO OPERAND 
5952 : 2$: «WORD X RO 
5953 : 3$: -WORD X PS 
5954 : 4$: INST TEST INSTRUCTION TO BE 
5955 ; T EXECU UTED. 
5956 : ADR ‘AN ADDRESS OFFSET FOR 
5957 é sCERTAIN MODES OR NOP. 
5958 3 ERROR +252 “NO TRAP ERROR. 
5959 ; BR 11$ 
5960 5$: ERROR +N s CORRECT FLOWS FAILURE. 
5961 ; BR 11$ ‘OPTIONAL FOR CERTAIN MODES. 
5962 ; H's .~ WORD ADDRESS OPTIONAL FOR CERTAIN MODES. P 
5965  CORSUB WILL PICK UP A POINTER TC THE ARGUMENTS, IN R1. ACO, RO AND 
5966 THE FPS WILL BE SET TO THE DESIGNATED VALUES. THEN THE TEST MODULE 
5967 TWILL BE SET UP TO INTERRUPT AND THE INSTRUCTION AT 4$ EXECUTED. IF 
5968 “NO TRAP OCCURS THEN THE TEST MODULE IS FAULTY. WHEN THE TRAP OCCURS 
5969 :THE PC ON THE STACK SHOULD BE 4$, AND A ACO, RO AND THE FPS SHOULD NOT 
5970 SHAVE BEEN MODIFIED. IF EVERYTHING IS CORRECT CORSUB WILL RETURN TO 
5971 5$ PLUS TWO. 4 AN ERROR IS DETECTED THEN CORSUB WILL RETURN TO THE 
5972 SERROR REPORT AT 5$. 
5973 *NOTE THAT A FLAG, CORFLG, IS SET TO -1 WHEN AN INTERRUPT IS PENDING. | 
oars sCORFLG IS ZERO OTHERWISE. | 
pate 3 032652 005037 033134 CORSUB: CLR CORFLG ;SET FLAG a at NO INTERRUPT 
5978 032656 012601 MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
5979 032660 010102 MOV R1,R2 :SET ACO. 
5980 032662 012700 000200 MOV #200,R0 
5981 032666 170100 LDFPS RO 
5982 032670 172412 LDD (R2) ,ACO 
5983 032672 016100 000012 MOV 12(R1),RO :SET UP THE FPS. 
5984 032676 170100 LDFPS RO 
5985 032700 016100 000010 MOV 10(R1),RO 7SET UP RO. 
5986 032704 010102 MOV R1,R2 | 
5987 032706 062702 000014 ADD #14,R2 
Ha 032712 010237 001236 MOV R2,$TMP2 iSAVE Bee OF INSTRUCTION IN CASE 
5990 032716 005037 177776 CLR PSW ‘EAR THE PRIORITY TO ALLOW INTERRUPTS. 
5991 032722 012777 032750 000220 MOV #CORTV,@CORTRP SET UP THE INTERRUPT VECTOR. 
5992 032730 012737 177777 033134 MOV #-1,CORFLG + SET THE FLAG TO INDICATE 
5993 AN INTERRUPT IS PENDING. 
5994 032736 012777 177777 000202 MOV #-1,aCORINT ‘ENABLE THE sg EQUIPMENT * S 


599 ; TRAP FUNCTION AND GO 
2908 032744 000161 000014 JMP 14(R1) TEXECUTE THE INSTRUCTION. 
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B SEQUENCE 
TEST # 22 = INTERRUPT CORRECT FLOWS TEST 


5998 bina TO HERE WHEN THE INTERRUPT OCCURS. 
5999 032750 005137 033134 CORTV: COM CORF LG :FIRST SEE IF AN INTERRUPT WAS PENDING. 
6000 032754 001060 BNE TVv1 ;1F NOT GO REPORT AN ERROR. 
6001 032756 012777 000000 000162 MOV #O SCORINT MAKE SURE THE TEST EQUIPMENT 
6002 :1S NOT INTERRUPT ENABLED. 
6004 032764 ' 170204 STFPS RG :GET THE FPS. 
6005 032766 012702 000200 V #200,R2 *GET ACO 
6006 032772 170102 LDFPS 
6007 032774 012702 033136 MOV CORTMP ,R2 
6008 033000 174012 STD ACO, (R2) 
6009 033002 012737 033136 001240 MOV #CORTMP , STMP3 
6010 033010 010037 001244 MOV RO, $TMP5 
6011 033014 010437 001250 MOV R4.$TMP7 
6012 033020 011637 001254 MOV (SP) ,$TMP11 
6013 033024 010102 MOV R1,R2 
6014 033026 010237 001242 MOV R2.$TMP4 
6015 033032 062702 000010 ADD #10,R2 
6016 033036 012237 001246 MOV (R23 +, $TMP6 
6017 033042 012237 001252 MOV (R2)+,$TMP10 
6018 033046 010237 001256 MOV R2,$TMP12 
6019 033052 021602 CMP (SP) ,R2 sSEE IF THE TRAP OCCURRED 
6020 ‘AT THE CORRECT ADDRESS. 
6021 033054 00101 BNE CORTVO 
6022 033056 022626 CMP (SP)+, (SP)+ sRESET THE STACK. 
6023 03 20061 000010 CMP RO, 10(R1) ‘SEE IF RO IS CORRECT. 
6024 033064 001012 BNE CORTVO ‘BR IF NOT CORRECT. 
6025 03 010102 MOV R1,R2 sSEE IF ACO WAS CORRECT 
6026 033070 012703 033136 MOV #CORTMP ,R3 
6027 033074 012705 000004 MOV 4,R5 
6028 033100 022223 1$: CMP (R2)+, (R3)+ 

29 033102 001003 BNE CORTVO :BRANCH IF INCORRECT. 

30 033104 077503 SOB R5,1$ 
6031 033106 000161 000032 MP 32(R1) :IF EVERYTHING IS CORRECT THEN RETURN. 
6033 033112 000161 000030 CORTVO: JMP 30(R1) s CORRECT FLOWS FAILED SO GO REPORT ERROR. 
6035 033116 011637 001236 CORTV1: MOV (SP) ,STMP2 :AN INTERRUPT OCCURRED WHEN THE FLAG 
6036 SCORFLG, DID NOT INDICATE THAT T ONE WA 
6037 ‘PENDING $0 REPORT SPURIOUS T 
6038 033122 005037 033134 CLR CORFLG 
6039 033126 022626 CMP (SP) +, (SP)+ 
6040 033130 104266 ERROR +266 
6041 033132 000407 CORDONE 
6043 033134 000000 CORFLG: .WORD 0 
6044 033136 000000 000000 000000 CORTMP: .WORD 0,0.0,0 
6046 033146 177774 CORINT: .WORD 177774 sTHIS IS THE ADDRESS, 177774, OF THE 
6047 ‘TEST EQUIPMENT'S STATUS REGISTER. 
6048 “THE CONTENTS OF CORINT CAN BE MODIFIED 
6049 ‘IF THIS STATUS REGISTER'S ADDRESS IS 
6050 CHANGED. 
6051 033150 000110 CORTRP: .WORD 110 THIS IS°THE ADDRESS OF THE TEST EQUIPMENTS 

2 ; STRAP VECTOR. LIKE THE STATUS REGISTER'S ADDRESS 





[DESCRIBED IMMEDIATELY ABOVE 
THIS VECTOR CAN BE CHANGED, BUT THE 













605 

6058 033152 
033152 

6059 

6060 

6061 

6062 033154 

6063 


6064 
6065 
6066 


033154 


033220 


033240 
033240 


C33244 


033254 


033320 
033320 


033324 


104412 


013746 
104403 
006 
000 
104401 
000421 


013746 
104403 
006 


CKFPBBO FP11F FLTG PNT PRT B 
TEST # 22 = INTERRUPT CORRECT FLOWS TEST 


001102 
001302 
001324 
100000 
033222 


001324 


001324 


TST23: 
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.SBTTL END OF PASS ROUTINE 
® ee edna Gate tammy GEAR eres a ae 
S*INCREMENT THE PASS NUMBER (SPA 
[* INDICATE END-OF-PROGRAM AFTER T PASSES THRU THE PROGRAM 
T*IF SW12=1 INHIBIT TRACE TRAP 

iif THERES A MONITOR GO TO IT 
s*IF THERE ISN'T 
$EOP: 


SEOPCT: 


$ENDCT: 


:3;65$: 
64$: 


37678: 
66$: 


$GET42: 


JUMP TO LOOP 
$STSTNM 
STIMES 
$PASS 
#100000, $PASS 
(PC)+ 
1 
$DOAGN 
Seine 


$28 


64$ 
<12><15>/END PASS’ #/ 


$PASS ,~(SP) 
6 

0 

.67$ 


66$ 
/ TOTAL ERRORS 
SERTTL,~(SP) 


SEQUENCE 


CONTENTS OF CORTRP MUST INDICATE THE 
HANGE . 


7GO INITIALIZE THE FPS AND STACK; AND 
SSEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 


;THE USER TYPED CONTROI. G?). 


a THE TEST NUMBER 

4 O THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 
TDON'T ALLOW A NEG. NUMBER 

: SLOOP? 


szVes 
7;RESTORE COUNTER 


ie ASCIZ STRING 
3GET OVER THE ASCIZ 


72:SAVE $SPASS FOR TYPEOUT 
7: TYPE PASS NUMBER IN OCTAL 
2:60 yer 22 ASCII 
ii TYPE 6 DIGITS 
; SUPPRESS wit ZEROS 
i: TYPE ASCIZ STRING 
GET OVER THE ASCie 
SINCE LAST REPORT / 


72SAVE SERTTL FOR TYPEOUT 
3; TOTAL NUMBER OF oT te IN OCTAL 


aoe 6 DIGITS 
SUPPRESS LEADING ZEROS 
TYPE teh LINE FEED 


3:GET MONITOR tie 
7 7BP NCH IF NO MONITOR 


130 
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END OF PASS ROUTINE 


6067 
6068 


033346 
033350 
033354 


033356 


033446 


005046 
012746 
000426 


104406 
032777 
001131 
000416 


013746 


033356 


000042 


000020 
010000 


033440 


000020 
033434 


377 


040000 


000004 
033506 
177060 
000004 
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145526 


000 


145462 


000004 





CLR -(SP) 33 INSURE THE an eat ‘ a 

MOV MSCLR.T,-(SP)  ;;SETUP FOR AN RTI ORR 

BR $RTRN 3:G0_DO AN RTI OR RIT to. LOAD THE PSW 
[:WITH A CLEARED ‘'T’’ BIT 


$CLR.T: 
V a442,R0 zz INSURE RO CONTAINS THE MONITORS 
BEQ $DOAGN ; RETURN ADDRESS 
RESET ;;CLEAR THE WORLD 
SENDAD: JSR PC, (RO) :;GO TO MONITOR 
NOP 3; SAVE ROOM 
NOP 7 7FOR 
NOP 7zACT11 
$DOAGN: 
TRAP 


3PUSH OLD PSW AND PC ON STACK 
BIC #20, (SP) + ECLEAR THE ‘'T’’ BIT 
ne ele entre 2 7 RUN gh TRACE TRAP? 


BN NO 
COM $TBIT $318 IT a FOR TRACE TRAP 
BMI 1$ IF 
BIS #20, ( SET TRACE TRAP 
1$: V #SLOOP, ee csp) 3; JUMP TO START OF TEST 
$RTRN: RT! ¢ sRETURN==THIS, IS CHANGED TO 
AN ‘RTT’ IF ‘RTT’ IS A LEGAL 
1 INSTRUCTION 
$LOOP 
JMP a(PC)+ 3 RETURN 
$RTNAD: .WORD LOOP 
$TBIT: .WORD 0 3:''T'' BIT STATE INDICATOR 
$ENULL: .BYTE <-1,-1,0 NULL CHARACTER STRING 


-SBTTL SCOPE HANDLER ROUTINE 


RUS IOIOIIIIIISIEISIIIISIIIIIIOISIISIIIIIOIDIIIIUIOIIDIUIDIIDINOIISIOIOIOIIIOI 

SS THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
‘AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
**AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

:*THE S SWITCH OPTIONS on thet BY THIS ROUTINE ARE: 


;*SwW1 LOOP ON TEST 

+ eSW11=1 INHIBIT ITERATIONS 

3 *SWO9=1 LOOP ON ERROR 

37 *SWO8=1 LOOP ON TEST IN SWR<7:0> 
7*CALL 

3* SCOPE 3: SCOPE=IOT 
$SCOPE: 


CKSWR ::TEST FOR CHANGE IN SOF T-SWR 
1$: BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 
BNE SOVER “YES IF SW14=1 

:MAAAASTART OF CODE FOR THE XOR TeSTERMewks 

$XTSTR: BR 6$ ;1F RUNNING ON THE "‘XOR'' TESTER CHANGE 
*THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 

MOV @#ERRVEC ,-(SP) : SAVE THE CONTENTS OF THE ERROR VECTOR 

MO #5$, aAERRVEC FISET FOR TIMEOUT 

av177060 ME OUT 


IME OUT ON XOR? 
MOV (SP)+,@MERRVEC ;:RESTORE THE ERROR VECTOR 
BR $SVLAD 3:G0 TO THE NEXT TEST 




































CKFPBBO FP11F FLTG PNT 
SCOPE HANDLER ROUTINE 


033506 022626 
033510 012637 000004 
000440 
033516 032777 000400 
001404 
033526 127737 145406 
0335 
3536 013737 177766 
000001 
1406 
033554 042737 000001 


033564 105037 001103 
033570 105737 001103 


1421 
033576 123737 001115 
033604 
033606 032777 001000 
001404 
033616 013737 001110 
000446 
033626 105037 001103 
001302 


6069 
6070 


145414 
001102 


033760 
033760 


177766 


001103 
145324 
001106 


145272 


001104 


001104 
001302 


001322 
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5$: CMP (SP)+, (SP)+ 
MOV {oP ) +. -@#ERRVEC 


SEQUENCE 


CLEAR THE STACK AFTER A TIME OUT 
; sRESTORE THE ERROR VECTOR 
P ON THE PRESENT TEST 


BR 
6%: ;MAAAREND OF CODE FOR THE XOR’ TESTERAHAHA 
#B1T08,aSWR 


2 

CMPB @SWR ,STSTNM 
BEQ SOVER 

2$: MOV 177766, CPSAVE 
BIT #81100, CPSAVE 
BEQ 20008 
BIC #B1T00,177766 
EMT +177 


CLRB SERFLG 
2000$: Ht day es 


EQ 3 
CMPB SERMAX , SERFLG 
BHI $ 
BIT #B1T09,aSWR 
BEQ 
7$: MOV $SLPERR,$LPADR 
BR SOVER 
4$: CLRB SERFLG 
CLR $TIMES 
BR 1$ 
3$: BIT #B1T11,aSWR 
BNE 1$ 
TST $PASS 
BEQ 1$ 
INC $ICNT 
CMP STIMES,SICNT 
BGE SOVER 
1$: MOV #1,$1CNT 
MOV SMXCNT ,STIMES 
STSTNM 


$SVLAD: INCB 
MOVB STSTNM,STESTN 
MOV (SP) , SLPADR 
MOV (SP) ,SLPERR 
CLR SESCAPE 
MOVB #1, SERMAX 
SOVER: MOV $TSTNM,@DISPLAY 
MOV $LPADR, (SP) 


$MXCNT: 1 
CPSAVE: .WORD 0 


-SBTTL ERROR HANDLER ROUTINE 


: LOOP ON SPEC. TEST? 
:BR IF _NO 
:30N ey Nata TEST? SWR<7:0> 
sMOVE CPU ERR REG VALUF TO LOC FOR TST ;DPMOO1 


;SEE IF THE POWER MONITOR BIT IS ON ;DPMO01 
[BRANCH TO CONTINUE ROUTINE IF CLEAR ;DPMO01 


7CLEAR THE BIT FOUND TO BE SET ;DPMO01 
TCALL SPECIAL POWER FAIL BIT ERROR CALL ;DPMOO1 
7CLEAR THE ERROR FLAG FOR NEXT TEST ;DPMO01 
;WAS THERE AN ERROR? 


:BR IF _NO 
: MAX. ERRORS FOR THIS TEST OCCURRED? 


: LOOP ON. ERROR? 
:°SET LOOP ADDRESS TO LAST SCOPE 


a at THE ERROR FLAG 
LEAR THE NUMBER OF ITERATIONS TO MAKE 
ZESCAPE TO THE NEXT TEST 

:EINAIBIT, ITERATIONS? 


i31F FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
‘INCREMENT ITERATION COUNT 
oo K THE NUMBER OF ITERATIONS MADE 
IF MORE ITERATION REQUIRED 

T:REINITIALIZE THE ITERATION COUNTER 
73SET NUMBER OF a id tae TO DO 
: 3 COUNT TEST NUMBERS 
33SET TEST NUMBER IN + MAILBOX 


3:SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
i :DISPLAY TEST NUMBER 
UDGE RETURN ADDRESS 


i EPINES P PS 
MAX. NUMBER OF ITERATIONS 
:LOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 


WTTTTTITILILI LLL LLL LLL to 
tS THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO ERTYPE ON ERROR 


"THE SWITCH willl > my PROVIDED BY THIS ROUTINE ARE: 
ON ERROR 


*SW1 S21 HALT 


3*SW13=1 INHIBIT ERROR TYPEOUTS 


3*SW10=1 BELL ON ERROR 
: LOOP ON ERROR 


132 





CKFPBBO FPI1F FLTG PNT 
ERROR HANDLER ROUTINE 


033762 


034252 


013737 
032777 


001007 
113737 
004737 


001002 
013716 


022737 
001001 


PRT B 


001103 
001102 
002000 
001 206 
001112 
001116 
r'r4's4 
45056 
000177 
177766 
000001 
000001 
001116 
033762 
020000 


036370 
001313 


000001 


001114 
035222 


033762 
144744 


001000 
033762 


001110 
001304 


033762 
001304 
033366 
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0011 
0011 
0011 


033760 
033760 


177766 
033762 
001116 
145016 


16 
14 
14 


001336 
034156 


144730 


000042 


7 *CALL 


*® 
° 


IBSAVE: . 
SERROR: 


7$: 


1$: 


1000$: 


20$: 


21$: 


22$: 
2$: 


3$: 


4$: 


5$: 


N : ERROR=EMT AND N=ERROR ITEM NUMBER 
0 :LOC'N TO HOLD $SERRPC DURING DUAL ERR 
;TEST FOR — IN SOF T-SWR 
SERFLG :3SET THE ERROR FLAG 
7$ ON'T LET THE FLAG GO TO ZERO 
$STSTNM, @DISPLAY : OT SPLAY TEST NUMBER AND ERROR FLAG 
#BiT10,aSWR S BELL ON ERROR? 
1$ zzNO - SKIP 
,SBELL : RING BELL 
$ERTTL 7:COUNT THE NUMBER OF ERRORS 
SS Skane TIGET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,$ITEMB ;STRIP AND SAVE THE ERROR ITEM CODE 
#177,$1TEMB +See IF THIS IS THE POWER FAIL CALL 
1000$ BRAN CH AROUND ROUTINE IF IT IS 
177766, CPSAVE *MOVE CPU ERR REG TO CPSAVE FOR TEST 
#B1T00,CPSAVE sSEE IF oa MONITOR BIT IS SET 
1000$ [BRANCH IF OK 
#B1T00,177766 CLEAR THE BIT FOUND SET 
SERRPC,IBSAVE ;SAVE SERRPC 
+177 ;CALL SPECIAL POWER MON BIT ERROR 
IBSAVE , SERRPC sRESTORE SERRPC 
#B1T13,aSWR :zSKIP TYPEOUT IF SET 
20$ ::SKIP TYPEOUTS 
PC, ERTYPE 32:G0 TO USER ERROR ROUTINE 
-SCRLF 
#APTENV, SENV : RUNNING IN APT MODE 
:zNO,SKIP APT ERROR REPORT 
ba? o's 77;SET ITEM NUMBER AS ERROR NUMBER 
ie SAT 7 REPORT FATAL ERROR TO APT 
22$ 7 APT ERROR LOOP 
IBSAVE :SEE IF POWER FAIL ERROR CALL 
3$ * BRANCH IF NOT - HALT NOT ALLOWED 
aSwR 7 HALT ON ERROR 
3$ 7iSKIP IF CONT INUE 
3; zHALT ON ERROR! 
2s TEST FOR CHANGE IN SOF T-SWR 
#B1T09,aSWR ::LOOP ON ERROR SWITCH SET? 
4$ 3;BR IF NO 
IBSAVE :SEE IF THIS IS THE PWR MNTR BIT ERROR 
4$ ; CH IF SO - NO FUDGING ALLOWED 
$LPERR, (SP). : FUDGE RETURN FOR LOOPING 
SESCAPE ::CHECK FOR AN ESCAPE ADDRESS 
5$ :7BR IF NONE 
IBSAVE :SEE IF THIS IS THE PWR MNTR BIT ERROR 
$ :BRANCH IF SO = NO FUDGING ALLOWED 
SESCAPE , (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 
ASENDAD 42 :zACT=11 AUTO-ACCEPT? 
6$ : CH IF NO 


SEQUENCE 


;DPMO01 


;DPMO01 
:DPMO01 


:DPMOO1 
;DPMO01 


;DPM001 


:DPMO01 


133 
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CKFPBBO FP11F FLTG PNT PRT B SEQUENCE 134 
ERROR HANDLER ROUTINE 
034254 000000 HALT 77 YES 
034256 6$: 
034256 032777 001000 144654 BIT #B1T09,aSWR 
264 001013 BNE ERM10 
266 011637 001162 MOV (SB) $REGO sSEE IF ERROR #377 
034272 062737 177776 001162 ADD 2, $REGO 
034300 122777 000377 144654 CMPB ri RE REGO 
934306 001002 BNE 
034310 062716 000002 ADD 2. Sp) 
6071 034314 O ERM10: RTI 
6072 .SBTTL SAVE AND RESTORE RO=-R5S ROUTINES 
. ERE EE RRR REE REERER EEE ERE EEE ERERE REE 
+ *SAVE RO=-R5 
> *CALL: 
ie SAVREG 
; aaa RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
: eTOP==~(+16) 
te +2=-=(+18) 
te $4---R5 
3* +6---R4 
g* +8---R3 
3*+10---R2 
7*+12---R1 
:*+14---R0 
034316 $SAVREG: 
034316 046 MOV RO,-(SP) :zPUSH RO ON STACK 
034320 010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
034322 010246 MOV R2,-(SP) 77PUSH R2 ON STACK 
034324 010346 MOV R3,-(SP) :zPUSH R3 ON STACK 
034326 010446 MOV R4,-(SP) :ZPUSH R4 ON STACK 
034330 010546 MOV R5,-(SP) 7 7PUSH RS ON STACK 
034332 16646 000022 MOV 22(SP), -(SP) 7 SAVE PS OF MAIN FLOW 
0343 016646 022 MOV 22(SP) ,- (SP) sz SAVE PC OF MAIN FLOW 
034342 016646 000022 MOV 22(SP) .=(SP) s: SAVE PS OF CALL 
034346 016646 022 MOV 22(SP),-(SP) sz SAVE PC GF CALL 
034352 000002 RTI 
;*RESTORE RO-R5 
>*CALL: 
ea RESREG 
034354 $RESREG: 
034354 012666 000022 MOV (SP)+,22(SP) Z RESTORE PC OF CALL 
034 012666 000022 MOV (SP) +,22(SP) Fin pth PS OF CALL 
0 012666 000022 MOV (SP)+,22(SP) sRESTORE PC OF MAIN FLOW 
034370 012 000022 MOV (SP)+,22(SP) +:RESTORE PS OF MAIN FLOW 
034374 012605 MOV (SP) +,R5 *:POP STACK INTO RS 
034376 012604 MOV (SP) +.R4 *:POP STACK INTO R4 
034400 012603 MOV (SP)+.R3 +:POP STACK INTO R3 
034402 912602 MOV (SP)+,R2 7zPOP STACK INTO R2 
034404 012601 MOV (SP)+,R1 *:POP STACK INTO R1 
034406 012600 MOV (SP) +.RO +:POP STACK INTO RO 
034410 000002 RTI 
6073 
6074 ~SBITL TYPE ROUTINE 


SLR AAA E EE EAR EAE A AA AAA AAA A TATRA TATRA TASS EAT ES 


S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


r 





CKFPBBO FP11F FLTG PNT PRT B 
TYPE ROUTINE 


034412 105737 001157 
034416 100002 
0000 


17600 000002 
034432 122737 000001 001336 


132737 000100 001337 


034452 010037 034462 
034456 004737 035212 


000000 
132737 000040 001337 


062716 000002 

000002 - 

122716 000071 

034520 122716 000200 
1006 


Hea! 4 034752 


004737 034624 
034546 123726 001156 


034554 013746 001154 
000001 
034566 004737 034624 
034572 105337 034752 
034600 112716 000040 
034624 
132737 000007 034752 
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SEQUENCE 135 


emi og eg A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


1) “USING voe TRAP INSTRUCTION 


; TYPE 
st MESADR 


61$: . WORD 
62$: BITB 
BN 


2$: MOVB 
60$: MOV 
3$: ADD 
4$: CMPB 


DECB 

BR 
sHORIZONTAL TAB 
8$: MOVB 

JSR 


BITB 
BNE 


L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$F ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESADR 


yz;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


rag 2iIS ws TERMINAL ? 

;zHALT HERE IF NO TERMINAL 
3$ 2s LEAVE 
RO,-(SP) 73SAVE RO 
a@2(SP) ,RO + 2GET ADDRESS A. ASCIZ STRING 
MAPTENV, SENV zs RUNNING IN APT MODE 
62$ 3NO,GO CHECK "7 Ry CONSOLE 
#APTSPOOL .SENVM ::SPOOL MESSAGE TO APT 
62$ 33NO,GO CHECK FOR. CONSOLE 
RO,61$ 3;SETUP MESSAGE ADDRESS FOR APT 
PC, $ATY3 : 2 SPOOL MESSAGE TO APT 
0 MESSAGE ADDRESS 
#APTCSUP,SENVM ;:APT CONSOLE gt 


(RO) +,-(SP) 
4$ 
(SP) + 


ypad f SKIP TYPE OU 
a CHARACTER tO BE TYPED ONTO STACK 
BR IF IT ISN'T THE TERMINATOR 
THIF ae as POP IT OFF THE STACK 


(SP) +,RO : :RESTORE R 
#2, (SP) : SADJUST RETURN PC 
wut, (SP) Stns: IF <HT> 
CRLF , (SP) BRANCH IF NOT <CRLF> 
(SP) + sPOP <CR><LF> + ee 
<I TYPE ACR AND L 
$CHARCNT ::CLEAR CHARACTER COUNT 
2$ :2GET NEXT CHARACTER 
PC, $TYPEC *GO TYPE THIS CHARACTER 
$FILLC, (SP)+ 71S IT TIME FOR FILLER CHARS. ? 


2$ 
$NUIL.L , = (SP) 
1 (SP) 


THIF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 
>ZAND THE NULL CHAR. 
:IBR IF A NULL NEED TC BE TYPED? 


6$ tolls ta POP THE NULL OFF OF STACK 
PC, $TYPEC :GO TYPE A NULL 

$CHARCNT :D0 NOT COUNT AS A COUNT 

7 ; sLOOP 

~ men ty 

a’ (S 7 sREPLACE TAB WITH SPACE 

ot $1yPEC TYPE A SPACE 


#7, SCHARCNT 
9$ 


: BRANCH IF NOT AT 
7 TAB STOP 


pa  e 


| CKFPBBO Beaty FLTG PNT PRT B 


| TYPE ROU 


' 
| 
; 
| 


6075 
6076 


034620 


005726 
000724 


105777 


005726 


144314 
144310 
177600 
000023 
144270 


144264 


144246 
000002 


000002 
000015 


034752 
000012 
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000021 


144230 
000002 


000002 


SEQUENCE 
TST (SP) + 7 POP SPACE OFF STACK 
BR 2$ : GET NEXT CHARACTER 
S$TYPEC: 
TSTB _ 32 CHAR IN KYBD BUFFER? ;MJDO01 
BPL 10$ Bs IF - :MJDO001 
MOV a$TKB,-(SP) ;GET CHA :MJDO01 
BIC #177600, (SP) } STRIP EXTRANEOUS BITS :MJDO01 
C ASXOFF, (SP) re oy CHAR XOFF ;MJDO01 
BNE 102$ R IF NOT MJDO01 
101$: ;MJDO01 
TSTB asTKs szWAIT FOR CHAR ;MJD001 
BPL a s ;MJD001 
MOVB a$TkB 3 GET CHAR 3;MJD001 
BIC ar ee60. (SP) seSTRIP IT ;MJDO01 
CMPB #$X0N, (SP) szWAS IT XON? :MJDOO1 
BNE 101$ 37BR IF NOT :MJDO01 
102$: :MJDO01 
TST (SP)+ siF IX STACK 7MJD001 
10$: ;MJDOO1 
TSTB a$TPS ;ZWAIT UNTIL PRINTER IS READY 
BPL 10$ ;MJDO01 
CMPB 2(SP) , #$XON 3721S CHARACTER A RANDOM XON? ;RANOO1 
BEQ $TYPEX ioe ¢ IF YES ;RANOO1 
MOVB 2(SP) ,a$TPB LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB #CR,2 (SP) TIS CHARACTER A CARRIAGE RETURN?. 
BNE 1$ * BRANCH IF NO 
CLRB $CHARCNT «YES==CLEAR CHARACTER COUNT 
BR $TYPEX ss EXIT 
1$: CMPB #LF ,2(SP) ti 1S CHARACTER A LINE FEED? 


BEQ STYPEX 7 BRANCH IF YES 

INCB (PC) + 3:COUNT THE CHARACTER 
SCHARCNT:.WORD . 0 72: CHARACTER COUNT STORAGE 
$TYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

OTT TTTTT TITTLE ildededel 

t*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT 

> *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


T*CALL: 

i MOV NUM , - (SP) 7zNUMBER TO BE TYPED 

:* TYPOS 7:CALL_ FOR TYPEOUT 

3° -BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
£¢ -BYTE ™ 33M=1 si?" nN? 

:* =TYPE LEADING ZEROS 

:* ‘ig: SUPPRESS LEADING ZEROS 


7*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
>*$TYPOS OR $TYPOC 


**CALL: 
3* MOV NUM , = (SP) ; NUMBER TO BE TYPED 
:* TYPON ::CALL FOR TYPEOUT 


{+ $1¥POC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM , = (SP) 7 :NUMBER TO BE TYPED 
7° TYPOC 3:CALL FOR TYPEOUT 


136 
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BINARY TO OCTAL (ASCII) AND TYPE 


034756 017646 000000 $TYPOS: MOV a(SP) ,=(SP) st OAD ? THE MODE 


034762 116637 600001 035201 MOVB —«-1(SP) “SOF ILL LOAD ZERO FILL SWITCH 
034770 112637 035203 MOVB (SP) +, SOMODE +1 + : NUMBER OF DIGITS TO TYPE 
034774 062716 000002 ADD #2, (SP) ADJUST RETURN ADDRESS 
| 035000 000406 BR $TYPON 
035002 112737 000001 035201 $TYPOC: MOVB #1, $0FILL 2961 THE ZERO FILL SWITCH 
035010 112737 000006 935203 MOVB #6, SOMODE+1 ISET FOR SIX(6) DIGITS 
935016 112737 000005 035200 $TYPON: MOVB #5,SOCNT SET THE ITERATION COUNT 
035024 010346 MOV R3,-(SP) +O SAVE R3 
5026 010446 MOV R4,-(SP) 7 SAVE R4 
035030 010546 MOV —-RS. = (SP) :TSAVE RS 
035032 113704 035203 MOVB SOMODE +1,R4 :GET THE NUMBER OF DIGITS TO TYPE 
035036 005404 NEG RG 
035040 062704 000006 ADD #6,R4 ; SUBTRACT IT FOR MAX. ALLOWED 
035044 110437 035202 MOVB —-R4, SOMODE iSAVE IT FOR USE 


035050 113704 035291 MOVB SOF ILL,R4 3:GET THE ZERO FILL SWITCH 
035054 016605 000072 MOV 12(SP) ,R5 3zPICKUP THE INPUT NUMBER 
035060 005003 CLR R3 3;CLEAR THE OUTPUT WORD 
035062 006105 1$: ROL R5 jeg MSB INTO ‘'C’’ 
635064 000404 BR 3$ 3:G0 DO MSB 

035066 eh ds 23: ROL R5 73FORM THIS DIGIT 


035076 006103 3$: ROL R3 3:GET LSB OF THIS DIGIT 
035100 i oeaee 035202 DECB SOMODE 23 TYPE THIS DIGIT? 


000 BP 7$ IF NO 
035106 042703 177770 BIC #177770,R3 :3GET wo OF JUNK 
035112 001002 BNE 4$ iTEST FOR O 
035114 005704 TST R4 gyms Ts 0? 


035120 005204 4$: INC R4 DON'T SUPPRESS ANYMORE 0°S 
035122 052703 000060 BIS #°0,R3 ‘IMAKE THIS DIGIT ASCII 
035126 052703 000040 5$: BIS a’ ,R3 7z7MAKE ASCII IF NOT ALREADY 
035132 110337 035176 MOVB R3,8$ 72SAVE FOR TYPING 

035136 104401 035176 TYPE .8$ 3:GO TYPE THIS DIGIT 

035142 105337 035200 7$: DECB SOCNT ed BY 1 

035146 003347 BGT 2 ;BR IF MORE TO DO 


;;BR IF DONE 
5152 005204 INC RS >: INSURE LAST DIGIT ISN'T A BLANK 
54 000744 BR 2$ 3:G0 DO THE LAST DIGIT 
56 012605 6$: MOV (SP)+,R5 2 REST ORE R5 
60 012604 MOV (SP)+,R4 RESTORE R4 
62 012603 MOV (SP)+,R3 TIRESTORE R3 
$ 016666 000002 000004 MOV 2(SP) ,4(SP) 3:SET THE STACK FOR RETURNING 


035174 000002 RTI 3 sRETURN 
035176 000 8$: -BYTE 7:STORAGE FOR ASCII DIGIT 
72 TERMINATOR FOR TYPE ROUTINE 


| 
| 
0 
000 : 0 
035200 000 SOCNT: .BYTE 0 2 sOCTAL DIGIT rae ER 
035201 000 SOFILL: .BYTE 0 ZERO FILL SWITCH 
6077 035202 000000 SOMODE: .WORD 0 ::NUMBER OF DIGITS TO TYPE 
6078 .SBTTL APT COMMUNICATIONS ROUTINE 
£ sCOSORSSETOSSELSSSETEHt ESSOLEHESESTERSNNNRSSTESERSNSNSSESSHHONNN 
= 000001 035450 $ATY1: MOVB #1, $FFLG 3270 REPORT FATAL ERROR 


035206 
035212 000001 035446 $ATY3: MOVB #1, $MFLG 3:70 TYPE A MESSAGE 


| CKFPBBO FPTIF FLTG PNT PRT B 
_ APT COMMUNICATIONS ROUTINE 


035220 000403 
37 000001 


5737 035446 
035242 ieclat 000001 
132737 000100 


| 
766 000002 
035274 005737 001316 
035300 001375 
035302 010037 001332 
035306 
163700 001332 


006200 
035320 010037 001334 
035324 pete 000004 


00041 

035334 017637 000004 
062766 

pattes 004737 034412 


105737 035450 
038390 005737 001336 
035376 005737 001316 
035404 017637 000004 

000002 


105037 035446 


_ 000 
035450 000 


6079 
6080 
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035450 


001336 
001337 


000004 


001316 


035360 


000004 


001320 
000004 


BR 
$ATY4: MOVB 
$ATYC: 


12$: CLRB 


$MFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: .BYTE 


EVEN 
APTSIZE= 300 


APTCSUP=040 
. SBTTL 


SATYC 
#1,SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

5$ 
= 
#A?TSPOOL ,SENVM 
a4(SP) ,RO 
#2,4(SP) 
SMSGTYPE 

1$ 

RO, $MSGAD 
(RO) + 

2$ 

$MSGAD ,RO 

RO 


RO, $MSGLGT 
atte hat 


5 

a4(SP) ,4$ 

#2,4(SP) 

177776,-(SP) 

PC, $TYPE 

0 

SFFLG 

12$ 

SENV 

12$ 

$MSGTYPE 

11$ 

a4(SP),$FATAL 
SP) 


(SP)+,R1 
(SP) +,RO 
PC 
0 


0 
0 


TTY INPUT ROUTINE 


SEQUENCE 138 


3270 ONLY REPORT FATAL ERROR 


: ¢PUSH RO ON flare 
PUSH R1 ON STACK 
ica TYPE” A MESSAGE? 


NO 
; ;0PERATING UNDER APT? 
NOT: BR 
: SHOULD SPOOL MESSAGES?™> ~~ - ~~. 


;IF NOT: BR 
IGET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
seas IF’ DONE W/ LAST XMISSION? 
IF NOT: WAIT 
7:PUT ADDR IN MAILBOX 
32F IND END OF MESSAGE 


+3 SUB START OF MESSAGE 

GET MESSAGE LNGTH IN WORDS 
>:PUT LENGTH IN MAILBOX 
7:TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
-BUMP RETURN ADDRESS 
:PUSH 199776 ON STACK 
STALL TYPE MACRO 


7, SHOULD REPORT FATAL ERROR? 
:c1F NOT: BR 
: RUNNING UNDER APT? 


;1F NOT: BR 
224 INISHED yt ME SSAGE ? 


GET NERROR a 
;BUMP RETURN ADDR. 
77 TELl abt TO TAKE ERROR 
3:CLEAR FATAL FLAG 


73FATAL FLAG 


PLA tenet eeeeeAKeoeeReeeeeeneneeeteseeereneereraneaeaarenessaaeeee 


-ENABL LSB 


PLA Mteneeeeareraeeeaaereereeenerenseaneranesaeeonsaneasaseessens 





oo —--_——— —_—_- SO 


CKFPBBO FP11F FLTG PNT PRT B 


TTY INPUT ROUTINE 


‘WHEN OPERATING IN TTY FLAG 
035452 022737 000176 001140 $CkSWR: CMP ASWREG, SWR 
035460 001074 E 1 
035462 105777 143456 TSTB = @$STKS 

35466 71 BPL 15$ 


035732 


143452 
177600 
000007 


001134 
036071 
036076 
000176 


036107 


000001 


143374 
143370 
177600 
000025 


036064 
000006 


000015 
000004 


oa als 143314 


3 
001135 
000100 
034624 
000060 


000001 
143272 


000067 


000060 
000002 


00 
177776 


001312 
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SEQUENCE 


y*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
>*SERVICE THE TEST FOR CHANGE dy SOFTWARE SWITCH REGISTER TRAP CALL 


T 
$GTSWR: TYPE 
MO 


19$: CLR 
C 


17$ INC 


18% TYPE 


| 
| 
j 
| 
005266 000002 2(SP) 
000707 B 7$ 
"BR 208 


a$TKB,-(SP) 
#°0177, (SP) 
#7, (SP)+ 
15$ 
$AUTOB, #1 
15$ 

/SCNTLG 

* $MSWR 
SWREG, (SP) 
/SMNEW 
~(SP) 

-(SP) 

a$TkS 

7$ 
a$TKB,-(SP) 
#*C177, (SP) 
(SP) ,#25 
10$ 
/SCNTLU 
#6, SP 

19$ 

(SP) ,415 
16$ 

4 (SP) 

11$ 

2(SP) ,aSWR 


-SCRLF 
$SINTAG,41 
15$ 


#100, a$TKS 


PC, STYPEC 
(SP) ,4#60 


18% 
(SP) , 467 
18$ 

#60, (SP)+ 
2(SP) 


-2(SP), (SP) 
$QUES 


:i1S THE SOFT=SWR SELECTED? 
H IF NO 


ERE? 
F NO, DON'T WAIT AROUND 
SSAVE THE CHAR 
=; STRIP=OFF THE ASCII 


3; NO, RETURN TO USER 
7 sARE WE RUNNING IN AUTO=MODE ? 
: BRANCH IF YES 
z:ECHO THE CONTROL-G (*G) 
* TYPE CURRENT gd 4B 
; SAVE SWREG FOR TYPEOU 
ho TYPE=-OCTAL CLI ALL DIGITS) 
PROMPT FOR NEW SWR 
SZ CLEAR COUNTER 
77 THE NEW SWR 
32 CHAR THERE? 
zc 1F NOT y a 
zzPICK UP C 
7zMAKE IT BIT ASCII 
2e1S IT A CONTROL-U? 
$3 CH IF NOT 
:zYES, ECHO CONTROL-U (“UD 
3:2 IGNORE PREVIOUS INPUT 
:zLET'S TRY IT AGAIN 
7:18 IT A <CR>? 


AND <LF> 
: 7RE~ENABLE ios KBD INTERRUPTS? 
7 7RE-ENABLE TTY KBD INTERRUPTS 


BRANCH IF YES 


; BRANCH IF YES 

SISTRIP=OFF ASCII 

3218S THIS THE FIRST CHAR 

;;BRANCH IF YES 

32NO, SHIFT PRESENT 

7; CHAR OVER TO MAKE 

;; _ ROOM FOR NEW ONE. 

i 7KEEP COUNT OF CHAR 
3SET IN NEW CHAR 

32GET THE NEXT ONE 
TYPE ?<CR><LF> 

T:SIMULATE CONTROL =U 


139 


K 11 
CKFPRBO FP11F FLTG PNT PRT B MACRO M1113 28-MAR=81 14:47 PAGE 33-16 SEQUENCE 140 
TTY INPUT ROUTINE . 


.DSABL LSB 
LL UAAAA AAA RAAT RAAAA RATTLER AAAAAAAARAAREREAAAAERERARAR ERAN A EES ES 
sSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY ‘ 

*® g 
* RDCHR :; INPUT A SINGLE CHARACTER FROM THE TTY 
ie RETURN HERE +: CHARACTER IS ON THE STACK 
3;* szWITH PARITY BIT STRIPPED OFF 

035734 011646 $RDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC 

035736 016666 000004 000002 MOV 4(S5P) ,2(SP) +: SAVE THE PS 

035744 105777 143174 1$: TSTB = ASTKS ::WAIT FOR 

635750 100375 BPL 1¢ +A CHARACTER 

035752 117766 143170 000004 MOVB  a$TKB,4(SP) ‘READ THE TTY 

035760 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 

035766 026627 000004 000023 CMP 4(SP) ,#2 t:IS IT A CONTROL=S? 

035774 001013 BNE 3$ + BRANCH IF NO 

035776 105777 143142 2$: TSTB = ASTKS *:WAIT FOR A CHARACTER 

036002 100375 BPL 2$ *:LOOP UNTIL ITS THERE 

036004 117746 143136 MOVB  a@$TKB,~(SP) *:GET CHARACTER 

636010 042716 177600 BIC #°(177, (SP) ‘MAKE IT 7-BIT ASCII 

036014 022627 000021 CMP (SP) +,#21 t:1S IT A CONTROL-Q? 

036020 001366 BNE 2$ +: IF NOT DISCARD IT 

036022 000750 BR 1$ *:YES, RESUME 

036024 026627 000004 000021 38: CMP 4(SP) ,A$XON *:1S IT A RANDOM XON? :RANOO1 

036032 001744 BEQ 1$ *:BRANCH IF YES + RANOO1 

036034 026627 000004 000140 CMP 4(SP) ,#140 +:1S IT UPPER CASE? 

036042 002407 BLT 4 i: CH IF YES 

036044 026627 000004 000175 CMP 4(SP) #175 +:1S IT A SPECIAL CHAR? 

036052 003003 BGT 4$ ; BRANCH IF YES 

036054 042766 000040 000004 BIC #60,4(SP) + SMAKE IT UPPER CASE 

036062 000002 4$: RT] +:GO BACK TO USER 

036064 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> :: CONTROL ‘U'' 

036071 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> +: CONTROL ''G' 


036076 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
036107 040 040 116 SMNEW: .ASCIZ / NEW = / 


6081 
6082 .SBTTL TRAP DECODER 
PRR ER ERE E AERA RARER AERA REE A A RRR RRR ERS 
[*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. 
036120 010046 $TRAP: MOV RO,-(SP) 72SAVE RO 
036122 016600 000002 MOV 2(SP) ,RO 3:GET TRAP ADDRESS 
036126 005740 TST -(RO) 7:BACKUP BY 2 
130 111000 MOVB (RO) ,RO 3:GET RIGHT BYTE OF TRAP 
036132 006300 ASL R POSITION FOR INDEXING 
036134 016000 036154 MOV $TRPAD(RO).RO 3; INDEX TO TABLE 
036140 000200 RTS RO 3;G0 TO ROUTINE 
7; THIS IS USE TO HANDLE THE ‘‘GETPRI** MACRO 
036142 011646 $TRAP2: MOV (SP) ,-(SP) 3:MOVE THE PC DOWN 
036144 016666 000004 000002 MOV 4(SP) ,2(SP) 3:MOVE THE PSW DOWN 
036152 000002 RESTORE THE PSW 


RTI 
-SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY wy INSTRUCTION. 
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TRAP TABLE 


$TRPAD: 


036154 036142 .WORD $TRAP2 
036156 034412 $TYPE ;;CALL=TYPE 
036160 035002 $TYPOC ;;CALL=TYPOC 
036162 034756 $TYPOS ;;CALL=TYPOS 
0361 035016 STYPON ;;CALL=TYPON 
0361 035522 $GTSWR ;;CALL=GTSWR 
036170 035452 $SCKSWR ;;CALL=CKSWR 
036172 035734 $RDCHR ;;CALL=RDCHR 
036174 034316 $SAVREG ;;CALL=SAVREG 
036176 034354 SRESREG ;;CALL=RESREG 
6083 0362 037074 «RSET ;;CALL=RSETUP 
6084 036202 037 .LPER ;;CALL=LPERR 
pein 30 $TERM=.-$TRPAD 
6087 . SBTTL POWER DOWN AND UP ROUTIN 
REE EEEKEEEEEKEKK 
“POWER DOWN ROUTINE 
0362 012737 036362 000024 $PWRDN: MOV #SILLUP,@MPWRVEC 
036212 012737 006340 000026 MOV #340, aAPWRVEC+2 
036220 010046 MOV RO,-(SP) 
036222 010146 MOV R1,-(SP) 
036224 010246 MOV R2,-(SP) 
036226 010346 MOV R3,-(SP) 
036230 010446 MOV R4,-(SP) 
036232 010546 _ MOV RS,-(SP) 
0362 017746 142700 MOV @SWR,- (SP) 
036240 010637 036366 MOV SP, $SAVR6 
036244 012737 036256 000024 MOV #SPWRUP, APWRVEC’ 
036252 HALT 
036254 000776 BR - 
REE KKK EEEEEEKEKK 
“POWER UP ROUTINE 
036256 012737 036362 000024 $PWRUP: MOV ASILLUP, @QAPWRVEC 
0362 013706 036366 MOV $SAVR6, SP 
036270 005037 036366 CLR $SAVR 
036274 005237 036366 1$: INC SSAVR6 
036300 001375 BNE 1$ 
036302 012677 142632 MOV (SP) +, @SWR 
036306 012605 MOV (SP)+,R5 
036310 2604 MOV (SP)+,R4 
036312 012603 MOV (SP)+,R3 
036314 012602 MOV (SP)+,R2 
036316 012601 MOV (SP)+,R1 
036320 012600 MOV (SP)+,RO : 
036322 012737 036204 000024 MOV #SPWRON, aePWRVEC™ 
036330 012737 000340 000026 MOV #340, Q#PWRVEC+2 ; 
036336 104401 TYPE 
036340 037270 $PWRMG: .WOR POWERM 
036342 012716 MOV (PC) +, (SP) 
036344 $PWRAD: .WORD START 
03634 27 000020 000002 BIC #20,2(SP) 
036354 005037 033440 CLR $TBIT 
036360 RTI 
036362 0 $ILLUP: HALT 
036364 000776 BR .72 
036366 $SAVR6: 0 





SEQUENCE 141 


TRAP+1 (104401) 
TRAP+2(104402) 
TRAP+3( 104403) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
GET SOFT=SWR SETTING 

TEST FOR CHANGE IN SOF T=SWR 

TTY TYPEIN CHARACTER ROUTINE 

SAVE RO-R5 ROUTINE 

RESTORE RO=R5 ROUTINE 

ROUTINE TO INITIALIZE AFTER EVERY TEST 
ROUTINE TO SET LOOP ON ERROR ADDRESS. 


TRAP+6 (104406) 
TRAP+10 


— 4 


ES 


PAPER ESASSERSLE SASSER AS ASA A READS SS S| 


373SET FOR FAST UP 
2 éPRI 10:7 
HK RO ON STACK 


@SWR ON STACK 
AVE SP 

i Set UP VECTOR 
G UP 


ee 
REE EKERERAEREEREREEKEEKEKE 


8 i oo FAST DOWN 


SIWAIT LOOP FOR THE TTY 
7sWAIT FOR THE INC 
; WORD 


; RO 
Ro: ~ THE NPOWER DOWN VECTCR 


+ REPORT THE POWER FAILURE 
+ :POWER FAIL MESSAGE POINTER 


L 
CLEAR THE ‘'T’’ BIT FLAG 


23 THE POWER UP SEQUENCE WAS STARTED 
32 BEFORE THE POWER DOWN WAS COMPLETE 
33PUT THE SP HERE 


Pee ee a eee en ee ne ae ee eee Skee eT Sea Se, ee ee Ol 
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POWER DOWN AND - ROUTINES 


6088 
6089 
6090 .SBTTL ERROR TYPE OUT ROUTINE 
6091 Iteeititiitiiiiitttittitietiiiti rrr 
“IIIS IOI III IDOI ISO IIIIDIOIIUIOIIOIOIIIDDISIU IORI nt i ttt 
6092 tSTHIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
6093 t*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
6094 *OR BY FIRST SETTING Ne EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
6095 : *OUT AND THEN ECECUTING A 
“ : JSR PC, SERTYPE 
6098 036370 104403 001313 ERTYPE : TYPE , SCRLF ;TYPE A CRLF 
6099 036374 113737 001102 001232 MOVB $TSTNM,STMPO “MOVE TEST NUMBER TO $TMPO 
6100 036402 04 177400 001232 BIC #177400,$TMPO ;CLEAR THE UPPER BYTE 
6101 036410 013737 001116 001234 MOV SERRPC,$TMP1 GET PC OF CALL 
6102 036416 01 MOV RO,-(SP) SSAVE RO 
6103 036420 113700 001114 MOVB $1TEMB,RO GET THE ITEM NUMBER. 
6104 036424 042700 177400 BIC #177400, RO ;CLEAR THE UPPER BYTE 
6105 036430 001005 BNE 1$ BRANCH IF ITEM IS ZERO 
6106 036432 013746 001116 MOV SERRPC ,-(SP) :MOVE THE ERROR PC TO THE STACK FOR PRINTING 
6107 036436 104402 TYPOC ;PRINT THE PC 
6108 036440 000137 036740 JMP 22$ ; JUMP TO EXIT - ALL_DONE 
6109 036444 022700 000377 1$: CMP #377,RO0 :SEE IF ERROR # IS 377 
6110 036450 001005 BNE 3$ ‘BRANCH IF NOT 
6111 036452 016600 000004 MOV 4(SP) ,RO sMOVE ITEM ADDRESS ON STACK TO RO 
6112 036456 011000 MOV (RO) ,RO [MOVE Nod TO RO 
6113 036460 062700 000400 ADD #400,RO SADD 400 TO RO 
6114 036464 010037 001320 3$: MOV RO, SFATAL sSET ITEM NUMBER IN SFATAL FOR APT ;DPMO01 
6115 036470 005300 DEC RO :DECREMENT RO AND 
6116 036472 ASL RO + SHIFT THREE TIMES 
6117 036474 ASL RO ;TO FORM AN INDEX 
6118 036476 006300 ASL RO FOR THE TABLE. 
6119 036500 062700 001442 ADD #SERRTB,RO TADD ERROR TABLE START TO RO - FORMS STARTING ADDRESSS 
6120 036504 012037 036514 4$: MOV (RO) +,5$ sPICK ' THE ADDRESS OF THE ERROR MESSAGE 
6121 036510 001404 BEQ 6$ ‘BRANCH IF NONE 
6122 036512 104401 TYPE ;TYPE THE MESSAGE 
6123 036514 000000 5$: «WORD 0 SLOCATION FOR AS MESSAGE ADDRESS 
6124 036516 104401 001313 TYPE -SCRLF ; TYPE A <CRLF> 
6125 036522 012037 036532 6$: MOV (RO)+,7$ :GET THE DATA HEADER 
6126 036526 001404 BEQ 8$ [BRANCH IF NO HEADER 
6127 036530 104401 TYPE ; TYPE THE HEADER 
6128 036532 000000 7$: «WORD 0 SLOCATION FOR  MEASER ADDRESS 
6129 036534 104401 001313 TYPE ,$SCRLF ; TYPE A <CRLF> 
6130 036540 010146 8$: MOV R1,-(SP) + SAVE R1 
6131 036542 010246 MOV R2,~(SP) SAVE R2 
1 036544 010346 MOV R3,-(SP) SAV VE RS 
6133 036546 012001 MOV (RO) +,R1 [GET VHE ADDRESS OF THE DATA TABLE. 
6134 036550 001503 BEQ 23$ ‘BRANCH TO RETURN IF NO DATA 
6135 036552 011000 MOV (RO) ,RO :GET A POINTER TO THE DATA FORMAT TABLE. 
0365 105710 9$: TSTB (RO) 31S THE FORMAT ZERO? 
6137 036556 001003 BNE 10$ ;BRANCH TO CHECK FOR FORMAT 2 IF NOT 
036560 013146 MOV a(R1)+,-(SP) + FORMAT ZERQ. SO TYPE 
6139 036562 ioeece TYPOC AN OCTAL NUMBER. 
6140 036564 00046 BR 21$ ‘BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
6141 036566 122710 000002 10$: CMPB #2, (RO) 31S THE FORMAT TWO? 
6142 036572 001005 BNE 11$ [BRANCH TO CHECK FOR FORMAT 3 IF NOT 
6143 036574 004737 036764 JSR PC, TOCTNM ;TYPE 1ST OCTAL NUMBER 















6144 036600 
6145 036604 


6151 036626 
6152 

6153 036630 
6154 036634 


6180 036734 
6181 
6182 036740 


6190 036762 


6196 036776 


6191 ‘ 
6192 036764 


CKFPBBO FP11F FLTG PNT 
ERROR TYPE OUT ROUTINE 


PRT B 


036764 
000003 


000004 
036764 


000004 


000005 
036662 


000011 
036702 


000012 
000006 


036764 


037335 


001313 


037337 


11$: 


12$: 


13$: 


148: 


15$: 
16$: 


17$: 
18$: 
19$: 
20$: 


21$: 
228: 


23%: 


TOCTNM: 


JSR 
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PC, TOCTNM 
1$ 


#3, (RO) 
13$ 


#4 ,R3 
PC,TOCTNM 
R3.12$ 

21$ 

#4, (RO) 

14 
a(R1)+,-(SP) 
16 


21$ 
#5, (RO) 

$ 
(R1)+,15$ 


22$ 

#11, (RO) 
18$ 
a(R1)+,17$ 


22$ 

#12, (RO) 
20$ 
a(R1)+,R2 

#6,R3 

PC, TOCTNM 
3,19$ 

21$ 

-$TAB 


RO 
(R1) 
9 


$ 
- SCRLF 


. (SP) +,R3 


(SP)+,R2 
(SP) +,R1 
(SP) +,RO 
PC 


a(R1)+,R2 
(R2)+,-(SP) 


~ SPACE 
PC 


SEQUENCE 143 


+ TYPE 2ND OCTAL NUMBER 
ANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
HS THE FORMAT THREE? 
:BRANCH TO CHECK FOR FORMAT 4 IF NO 
;SET LOOP COUNTER TO TYPE 4 OCTAL NUMBERS 
TYPE AN OCTAL NUMBER 
:SUBTRACT 1 AND BRANCH IF NOT DONE 
{BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 


31S THE FORMAT FOUR? 

‘BRANCH TO CHECK FOR FORMAT 5 IF NOT 

sMOVE THE DATA TO THE STACK FOR TYPING 
:GO TYPE AN OCTAL NUMBER 

; TYPE UP TO 16 DIGITS 

SUPPRESSING LEADING ZERO 

[BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
31S THE FORMAT FIVE? 

[BRANCH TO CHECK FOR FORMAT 11 IF NOT 

yPUT THE ADDRESS OF THE ASCII STRING IN THE LOCATION 
TYPE THE ASCIZ STRING. 

ZLOCATION FOR THE ADDRESS OF ae ASCIZ STRING 
[BRANCH TO INCREMENT RO AND CONTINUE 

31S THE FORMAT ELEVEN? 

[BRANCH TO CHECK FOR FORMAT 12 IF NOT 

SMOVE THE DATA TO THE STACK FOR TYPING 

TYPE THE ASCIZ STRING. 

TLOCATION FOR THE ADDRESS OF THE ASCIZ STRING 
[BRANCH TO INCREMENT RO AND CONTINUE 

31S THE FORMAT TWELVE? 

‘BRANCH TO HALT IF NOT - FORMAT NOT RECOGNIZED 
SMOVE THE DATA TO THE STACK FOR TYPING 

TYPE SIX OCTAL NUMBERS 

STYPE AN OCTAL NUMBER 

:SUBTRACT 1 AND BRANCH IF NOT DONE YET 

BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 


“POINT TO THE NEXT FORMAT 
SHAS THE END OF THE DATA TABLE BEEN REACHED? 
;BRANCH BACK IF NOT 


; DONE. 
;RESTORE R1,R2 AND R3 


;RESTORE RO. 
AND RETURN. 


FORMAT TWO SO TYPE TWO 
TOCTAL NUMBERS. 

TYPE THE OCTAL NUMBER 
i TYPE A SPACE CHARACTER 
7 EX 


CKFPBBO FP11F FLTG PNT PRT B 
FPP SPURIOUS TRAP TO 244 HANDLER 


6197 
6198 


6199 
00 


6210 037024 


ogi 037026 


6218 037032 
70 


Oss¢ 037044 


8 
6229 037050 
6230 037054 
6231 037056 
6232 037060 









001236 


001240 
001242 


033154 


001236 


033154 


001236 


033154 
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.SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 


pgusencinnatrs-tannnnananaannnnrsey een eon rnoe nn Ste ee 

SEIS III IIIS IIOIODR htt tt tt 
:*THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
:*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS te RECORDED 
; + THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED 


i DSPUR: MOV (SP) ,STMP2 sSAVE PC OF TRAP. 
CMP (SP)+,(SP)+ RESTORE SP. 
STFPS RO 7GET FPS 
MOV RO, STMP3 
STST RO iGET FEC 
MOV RO, STMP4 
1$: ERROR +247 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
* VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 
JMP $EOP 


.SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 


SA OO ROIS IIOIUICIOIOIOIOII III IIIT IRI T TTS IIIT IAI II II IAI IM 
RI IOI TOTO IO SIO SOOO RORIIOROI I OIOIIIIAII IIIS SISA IAAI IAA IAI AAI SAS ASSAM. 


SRTHIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 


°e 
CPSPUR: MOV (SP) ,$TMP2 SAVE PC OF TRAP. 
CMP (SP)+,(SP)+ 
1$: ERROR +250 
RSE TUP :G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS ee aat 
:THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
JMP $EOP 


.SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


PSOE IIIS ISIS SIIIISIEIIOIIITIIEICIOIIODIOIOIDIDIDISIDISITTITISI TDD II 
SIO IOSD IRI OID pnt inti 


SE THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 
«® 
CPTWO: MOV 


(SP) ,STMP2 SAVE PC OF TRAP. 
CMP (SP)+, (SP) + 
1$: ERROR +251 
RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 


33 

:THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH — (HAS 
7 THE USER TYPED CONTROL G?) 




















1 
6242 937066 011637 
ose7 037072 000002 


3 
ose 037074 023727 


6256 037102 001001 
6237 037104 104406 


60 
6261 037106 012737 


66 005004 
6267 037140 170104 


6282 037342 101 
6283 360 


037 106 

037400 101 
6285 037427 101 

037455 105 
6287 037477 107 
6288 037515 106 
6289 037541 111 
6290 037563 105 
6291 037607 105 
6292 037632 114 
6293 037650 122 


CKFPBBO FP11F FLTG PNT PRT B 
SET LOOP ON ERROR ADDRESS ROUTINE 


001110 


001140 


037000 
037032 
037050 


001100 


nd eb and ad ed ed cd 
MW Ww 
ONONOT 


ee ena 
O-WWW YH WOONOS 
OWWWWOOO 


MNOOAMN 


177570 


000244 
000004 
000010 


—NMMNMMWNO 
ofofo- 


oOo — BSS oe 
S 
on 
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.SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 
PDS IISISISIIIIIISIIOOIIIIUOIIIOIIOIIISISIISIINIIIIIEIIEISIEIIIIIIEIOIIIOODS 
TUBES SIE IE IDIIEISIEIIEIISISIIISISIISIIOIIOIIIOIIOIIIIIUISITIOITIOICIOITIOITIITIII TI TT TTT III 
* 
° 
ol 


PER: MOV (SP) ,$LPERR 
RTI 


.SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 


SOUS IIUISISIIOISISIIIIEINISIIOICIOIITIOIOIIOITTITT TT TTT ITT TT IT TTT TOT 
SUAS ISIIRIDIIISISIIIIIOIIOIIOIOIOIDISIDISIIUIDIOIDIDISIIUIDIDIDIIDIOIDIOIOIDIDI IID 
STHIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 

**RESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 

3;* CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 
‘*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
**OF THE SOFTWARE SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 

; *TELETYPE AND THE USER CAN MODIFY IT. 


RSET: CMP SWR,4177570 sSEE IF THERE IS A PHYSICAL 
: CONSOLE SWITCH REGISTER. 
BNE 1$ CH IF NO. 
CKSWR “OTHERWISE TYPE THE CONTENTS 
:OF THE PROGRAM VIRTUAL SWITCH REGISTER 
:AND GIVE. T THE USER A CHANCE TO 
1$: MOV #FPSPUR,FPVECT 
MOV #CPSPUR ,ERRVECT 
MOV #CPTWO, 
MOV - (SP),RO :SAVE RETURN ADDRESS. 
MOV #STACK, SP :RESET THE STACK POINTER. 
CLR R4 :CLEAR THE FPS. 
LDFPS R4 
JMP (RO) ;RETURN. 
.-SBTTL recs MESSAGES 
MSA1: ASCIZ RAPPED AT: * <TAB><TAB> 
MSA2: -ASCIZ EXPECTED TRAP AT: '<TAB> 
MSA3: -ASCIZ ‘GOT RO: '<TAB><TAB> 
MSA4: eASCIZ ‘EXPECTED RO: ‘<TAB> 
MSAS: -ASCIZ ‘GOT ACO: '<TAB><TAB> 
MSA6: -ASCIZ "EXPECTED ACO: '<TAB><TAR> 
POWERM: .ASCIZ <CRLF>*POWER FAILURE. PROGRAM RESTARTING. *<CRLF> 
$TAB -ASCIZ <TAB> 


MS1: -ASCIZ ‘AC OPERAND: '<TAB><TAB> 

MS2: -ASCIZ '‘FSRC OPERAND: '<TAB><TAB> 
MS3: -ASCIZ ‘ACO BEFORE EXECUTION: '<TAB> 
MS4: -ASCIZ ‘ACO AFTER EXECUTION: *<TAB> 
MSS: -ASCIZ ‘EXPECTED RESULT: '<TAB> 

MS6: -ASCIZ ‘GOT RESULT: '<TAB><TAB> 

MS7: -ASCIZ ‘FRACTIONAL RESULT: ‘<TAB> 


MS10:  .ASCIZ ‘INTEGER RESULT: '<TAB> 
MS11:  .ASCIZ ‘EXPECTED FRACTION: *<TAB> 
MS12:  .ASCIZ ‘EXPECTED INTEGER: *<TAB> 
MS37: .ASCIZ ‘LOADED DATA 

MS40:  :ASCIZ ‘READ DATA: ' 


145 
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SPECIAL MESSAGES 


037664 105 130 120 MS415: .ASCIZ ‘EXPECTED DATA: ° 
6295 037704 104 101 124 MS41: .ASCIZ ‘DATA IN (RO) FSRC: , 
6296 037730 104 101 124 MS42:  .ASCIZ ‘DATA _IN ACO: 
6297 037746 107 117 124 MS43: ASCIZ ‘GOT hie nes ’ 
6298 037763 105 130 120 MS44: .ASCIZ “EXPECTED RESULT: 
6299 040005 200 124 105 CORMES: .ASCIZ <CRLF>*TEST 7 TESTING INTERRUPTS. °<CRLF > 


pon 


CKFPBBO FPT1F FLTG PNT PRT B 


6313 040475 
6314 040556 


ERROR MESSAGES 
6315 040602 
6316 040663 


| 
| 
| 
6302 040076 
6306 040132 
040132 
6307 040156 
6308 040237 
040237 
6309 040263 
6310 040344 
040344 
6311 040370 
6312 040451 
04 
6317 040707 


6318 040770 
04 


6319 041014 
6320 041077 


6321 
6322 


6323 
6324 


042240 » 
6342 042262 
6343 042325 : 

° 042325 7 
6344 042347 050 -ASC 
6345 = 
6346 042423 EM30: 

042423 y 


o-— o-— o-— —_— 
R SK SK SK LE 


— o=— o-—- 
Yio WN 
on oO 


& 


104 
042240 
104 


poo a 


.SBTTL 
120 123 EM: -ASCIZ 
103 060 EM2: -ASC1Z 
EM3: 
120 123 ASCII 
102 125 -ASCIZ 
EMG: 
120 123 ASCII 
102 125 -ASCIZ 
EMS: 
120 123 ASCII 
102 — -ASCIZ 
t 
120 123 ASCII 
102 125 - -ASCIZ 
120 123 ASCII 
102 125 -ASCIZ 
EM10 

120 123 ASCII 

102 125 -ASCIZ 
—EM11 

120 123 ASCII 

102 125 -ASCIZ 
EM12 

120 123 -ASCII 

102 125 -ASCIZ 
EM13 

120 123 ASCII 

111 104 -ASCIZ 
EM14 

120 123 ASCII 

102 125 -ASCIZ 
EM15 

120 123 ASCII 

102 125 -ASCIZ 
EM16 

120 123 ASCII 

111 104 -ASCIZ 

111 126 EM17: -ASCIZ 

120 123 EM20: ASCIZ 

105 103 EM21: ASCIZ 

111.. °126 EM22: ASCIZ 

111 126 EM23: ASCIZ 

120 123 EM32: -ASCIZ 
EM24: 

111 126 -ASCII 

102 125 -ASCIZ 
EM25 

111 126 ASCII 

117 122 -ASCIZ 
EM26 

111 126 ASCII 

102 125 1Z 


-2 
~_ 
— 
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EM27=EM25 
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SEQUENCE 147 


ERROR MESSAGES 
"FPS BAD AFTER CMPD (R),A. 
"ACO MODIFIED BY CMPD (R) 


"FPS BAD AFTER CMPD, *<CRLF> 
"(BUT ENBT) STATE 225 WENT TO 475 INSTEAD OF 075.° 


‘FPS BAD AFTER CMPD. *<CRLF 
"(BUT ENBT) STATE 225 WENT TO 075 INSTFAD OF 475." 


‘FPS BAD AFTER CMPD. '<CRLF> 
"(BUT ENBT) STATE 035 WENT TO 075 INSTEAD OF 475." 


‘FPS BAD AFTER CMPD. '<CRLF> 
‘(BUT ENBT) STATE 035 WENT TO 475 INSTEAD OF 075.° 


‘FPS BAD AFTER CMPD. °<CRLF 
"(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 007." 


‘FPS BAD AFTER CMPD. *<CRLF> 
"(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 405." 


"FPS BAD AFTER CMPD. *<CRLF> 
"(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 010." 


‘FPS BAD AFTER CMPD. '<CRLF 
"(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 110.' 


"FPS a AFTER CMPD. '<CRLF> 
/DIDN'T TAKE THE PATH: STATE 456, TO 012, TO 363 TO 120./ 


‘FPS BAD AFTER CMPD. *<CRLF 
‘(BUT XNBT XZBT) STATE 363. WENT TO 140 INSTEAD OF 100.° 


"FPS BAD AFTER CMPD. '<CRLF 
"(BUT XNBT XZBT) STATE 363. WENT TO 100 INSTEAD OF 140." 


"FPS BAD AFTER CMPD. ‘<CRLF> 

/DIDN'T TAKE THE PATH: STATE 777, TO 407./ 

"DIVD (R),A TRAPPED TO 244. FSRC=0 AND FID=1.' 
"FPS BAD AFTER DIVD (R) a 

"FEC BAD AFTER Ab (R),A 

/DIVD (R),A DIDN'T TRAP to 244. FSRC=0 AND FID=0./ 
"DIVF (R),A FAILED. 

"FPS BAD AFTER DIVF (R).A.° 


"DIVE (R),A FAILED." 
"(BUT Y61) WENT TO STATE 006 INSTEAD OF 206." 


"DIVF (R),A FAILED. 
"XOR OF SIGN BITS FAILED STATE 470.° 


"DIVE (R),A FAILED.* 
"(BUT Y61) WENT TO STATE 206 INSTEAD OF 006." 


"DIVE (R),A FAILED.* 


(oe oe 
4 


— 


po ee 
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| ERROR MESSAGES 


6347 042445 124 122 125 .ASCIZ. ‘TRUNCATION ERROR. FI=1." 
6348 042475 EM31: 
042475 104 114 126 ASCII "DIVE (R),A FAILED." 
6349 042517 122 117 125 .ASCIZ "ROUND ERROR. FT=0.° 
| 6350 042542 104 111 136 —M33:  .ASCIZ ‘DIVD (R),A FAILED. 
6351 042565 106 120 123 €M34:  .ASCIZ ‘FPS BAD AFTER DIVD (R),A.* 
6355 042617 —EM35 
042617 104 111 126 -ASCII "DIVD (R),A FAILED. '<CRLF> 
6356 042642 124 122 125 VASCIZ ‘TRUNCATION ERROR. FT=1.° 
6357 042672 EM36: 
_ 042672 104 111 126 -ASCII "DIVD (R),A FAILED. *<CRLF> 
6338 042715 122 117 125 .ASCIZ “ROUND ERROR. FT=0." 
6359 042740 115 125 1146 €M37: .ASCIZ ‘MULF (R),A FAILED." 
6363 042763 106 120 123. €M40:  .ASCIZ ‘FPS BAD AFTER MULF (R),A.° 
6364 043015 EMG1: 
043015 115 125 114 .ASCII “MULF (R),A FAILED. *<CRLF> 
6365 043040 123 111 107 -ASCIZ. ‘SIGN BIT BAD STATE 511.° 
6366 043070 EM42: 
043070 115 125 114 .ASCII ‘“MULF (R),A FAILED. *<CRLF> 
6367 043113 116 117 122 VASCI]. “NORMALIZATION FAILED. '<CRLF> 
6368 043141 050 102 125 “ASCIZ ‘(BUT Y62) STATE 252 WENT TO 044 INSTEAD OF 444.° 
6369 043221 EM43: 
043221 115 125 114 -ASCII “MULF (R),A FAILED. *<CRLF> 
6370 043244 116 117 122 “ASCII “NORMALIZATION FAILED. '<CRLF> 
6371 043272 050 102 125 “ASCIZ ‘(BUT Y62) STATE 252 WEN? TO 444 INSTEAD OF 044.° 
6372 043352 EM44: 
043352 115 125 114 -ASCII ‘“MULF (R),A FAILED. '<CRLF> 
6373 043375 122 117 125 .ASCIZ ‘ROUND ERROR. FT=0." 
6374 043420 EMGS: 
043420 115 125 114 .ASCII “MULF (R),A FAILED. *<CRLF> 
6375 043443 124 122 125 .ASCIZ "TRUNCATION ERROR. FT=1." 
| 6376 043473 106 120 123 —M46:  .ASCIZ ‘FPS BAD AFTER MULD (R).A.' 
6380 043525 115 125 114 €M246: .ASCIZ ‘MULD (R),A FAILED." 
6381 043550 EMG7: 
043550 115 125 114 -ASCII ‘MULD (R),A FAILED. '<CRLF> 
6382 043573 102 101 104 “ASCII ‘BAD CONSTANT USED IN THE MUL ALGORITHM,' 
6383 043642 200 125 123 “ASCIZ <CRLF>'USED 24 INSTEAD OF 56 STATE 020.° 
6384 043704 EM5O 
043704 115 125 114 .ASCII ‘“MULD (R),A FAILED. "<CRLF> 
6385 043727 124 122 125 .ASCIZ ‘TRUNCATION ERROR. FT=1.° 
6386 043757 —M51 
043757 115 125 114 .ASCII "MULD (R),A FAILED. *<CRLF> 
6387 044002 122 117 125 .ASCIZ ‘ROUND ERROR. FT=0." 
6388 044025 EM52 
044025 115 125 114 -ASCII ‘“MULD (R),A FAILED. *<CRLF> 
6389 044050 102 101 104 -ASC(IZ. ‘BAD CONSTANT USED IN ROUNDING, FT=0.° 
6390 044115 106 120 123. —M111: .ASCIZ ‘FPS BAD AFTER MULF (R).A. EXPECTED OVERFLOW. * 
6391 044172 106 120 123 —€M112: .ASCIZ ‘FPS BAD AFTER MULF (R),A. EXPECTED UNDERF LOW." 
6392 044250 —M113: 
044250 115 125 114 -ASCII “MULF (R),A FAILED. '<CRLF> 
6393 044273 105 130 120 “ASCIZ ‘EXPECTING OVERFLOW, FIv=0.' 
6394 044326 EM114 
044326 115 125 114 -ASCII “MULF (R),A FAILED. '*<CRLF> ; 
6395 044351 105 130 120 LASCIZ “EXPECTING UNDERFLOW, FIU=0.' 
6396 044405 115 125 114 £€M115: .ASCIZ "MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIv=0.' 
6397 044463 115 125 174 EM116 ASCIZ ‘MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 
6404 044542 EM117: 


| CKFPBBO FRTIF FLTG PNT PRT B MACRO M1113 28-MAR-81 
ERROR MESSAGES 


044542 115 125 114 ASCII 
405 064620 =—s-:050 102 125 ~ASCIZ 
6406 044700 EM120 
044700 115 125 114 ASCII 
| 407 044756 = 050 102 125 LASCIZ 
| 66408 045036 EMi21 
045036 115 125 114 SCII 
| 6609 065113 050 192 125 SCIZ 
| 410 065173 —M122 
045173 115 125 114 -ASCII 
| 411 045250 050 102 125 -ASCIZ 
| 412 065330 106 120 123 —M123:  .ASCIZ. 
| 6413 045406 106 120 123 EM124: LASCIZ 
| 6414 065465 EM125 
045465 115 125 114 -ASCII 
6415 045510 105 130 120 lle 
6416 045543 EM126 
045543 115 125 114 ASCII 
6417 04 105 130 120 “ASCIZ 
6418 045622 115 125 114 —M127: -ASCIZ 
6419 0457 115 125 114 —M130: .ASCIZ 
6426 045757 EM131 
045757 115 125 114 ASCII 
6427 046035 050 102 125 -ASCIZ 
6428 046115 EM132 
046115 115 125 114 «ASCII 
6429 046140 105 130 120 “ASCII 
6430 046173 200 ~—-050 102 ~ASCIZ 
6431 046253 EM133 
046253 115 125 114 ~ASCII 
6432 046331 050 102 125 “ASCIZ 
6433 046411 EM134 
046411 115.125 114 -ASCII 
6434 046466 050 102 125 “ASCIZ 
6435 046546 M135 
046546 115 125 114 ASCII 
6436 046571 105 130 120 “ASCII 
6437 046623 200 050 102 “ASCIZ 
6438 046703 EM136 
046703 115 125 114 ASCII 
6439 046760 050 102 125 “ASCIZ 
6440 047040 106 105 103 —M137: <ASCIZ 
6441 047126 106 105 103 —M140: .ASCIZ 
6442 044175 EM141=EM111 
6443 044172 EM142=EM112 
6444 047215 EM143: 
047215 115 125 114 ASCII 
6445 047240 105 130 120 “ASCIZ 
6446 047273 EM144: 
047273 115 125 114 ~ASCII 
6447 047316 105 130 120 ASCIZ 
6454 047352 EM145: 
04735 115 125 114 ASCII 
6455 047437 050 102 125 ~ASCIZ 
6456 047517 EM146: 
047517 115 125 114 ASCII 
6457 047606 050 102 125 SASCIZ 
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"MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0.° 
"(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115.° 


"MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 
"(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115.° 


"MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.° 
"(BUT FIV) STATE 333 WENT TO 136 INSTEAD OF 116.' 


"MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIv=0.' 
"(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116.° 
"FPS BAD AFTER MULD (R),A. EXPECTING OVERFLOW.” 
"FPS BAD AFTER MULD (R),A. EXPECTING UNDERFLOW. ° 


"MULD (R),A FAILED. '<CRLF> 
"EXPECTING OVERFLOW, FIV=0.' 


*MULD (R),A FAILED. '<CRLF> ? 
"EXPECTING UNDERFLOW, FIU=0.' 

"MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
"MULD (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 


"MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 
"(BUT FIU) STATE 331 WENT TO 155 INSTEAD * 115.° 


*"MULD (R),A FAILED. '<CRLF> 
"EXPECTING UNDERFLOW, FIU=0.' 
<CRLF>' (BUT FD) STATE 115 WENT TO 424 INSTEAD OF 425." 


"MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 
"(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115.° 


"MULD (R),A TRAPPED _TO 244 ON OVERFLOW. FIV=0.° 
"(BUT FIV) STATE 333 WENT TO 136 INSTEAD CF 116.° 


"MULD (R),A FAILED. '<CRLF> 
"EXPECTING OVERFLOW, Fiv=0.° 
<CRLF>' (BUT FD) STATE 116 WENT TO 424 INSTEAD OF 425.° 


"MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0,° 

"(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116.° 

"FEC BAD AFTER MULF (R),A. EXPECTING OVERFLOW, FEC=10.° 
"FEC BAD AFTER MULF (R),A. EXPECTING UNDERFLOW, FEC=12." 


"MULF (R),A FAILED. '<CRLF> 
"EXPECTING OVERFLOW, FIV=1." 


"MULF (R),A FAILED. *<CRLF> 
"EXPECTING UNDERFLOW, FIU=1.° 


"MULF (R),A FAILED TO TRAP TO 264 ON UNDERFLOW. F]U=1.° 
"(BUT FIU) STATE 331 WENT TO 115 INSTEAD OF 155." 


"MULF (R).A FAILED TO TRAP TO 244 ON UNDERFLOW, Flu=1." 
‘(BUT Flu) STATE 137 WENT TO 115 INSTEAD OF 155,° 


SEQUENCE 


149 
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6458 047664 EM14?: 
067664 4321152 125ti«*2'9 LASCII] "MULF (R),A FAILED TO TRAP TO 264 ON OVERFLOW. Fiv=1." 
6459 067750 050 2 = 125 "ASCIZ ‘(BUT Flv) STATE 333 WENT TO 116 INSTEAD OF 136.° 
6460 050030 EM150: 

950030 115 125 114 ASCII "MULF (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIlv=1.° 
| 61 050114 = i0S0—(iisa102—s«i125 “ASCIZ ‘(BUT FIV) STATE 133 WENT TO 116 INSTEAD OF A36.° 
6462 050174 «= 106.=105.—=S «103s EMIST: LASCIZ "FEC BAD AFTER MULD (R).A. EXPECTING OVERFLOW, FEC=10," 

eces 080262 «—o106—S—=<“‘<«é«‘iSSt*é«iSSCEM TS: ASCIZ “FEC BAD AFTER MULD (R).A. EXPECTING UNDERFLOW, FEC=12.° 
6466 045330 EM153=EMi 23 
6465 045406 EM154=EM124 
6466 050351 EM155: 
| 0503851 9 175—isid1252—=i(ié«‘i2S LASCII ‘MULD (R),A FAILED. *<CRLF> 
6467 050374 «96105 —si«*d180~—~S”t—«i1220 "ASCIZ "EXPECTING OVERFLOW, FIV=1.' 
6468 050427 EM156: 
050697 115 si125—Cti‘ié‘iiYSS VASCII *MULD (R),A FAILED. "<CRLF> 
6469 050652 -:105-s«130~—~S—«*120 "ASCIZ “EXPECTING UNDERFLOW, © JU=1." 
| 476 050506 —M157: ‘i 
050506 115 125 114 .ASCII “MULD (R),A FAILED TO TRAP TO 244 ON UNDERFLOW. FIU=1.° 
6477 050573 050 102 125 “ASCIZ ‘(BUT FIU) STATE 331 WENT TO 115 INSTEAD OF 155.° 
6478 050653 EM160: 
050653 115. si1252=C:=ti«*29 LASCIT "MULD (R),A FAILED. "<CRLF> 
050676 «= 105-ia1802—Sts—«d1220 ASCII] “EXPECTING UNDERFLOW, FIU=1.° 
6480 050731 200 + 050 102 “ASCIZ. <CRLF>'(BUT FD) STATE 155 WENT TO 426 INSTEAD OF 427.° 
6481 051011 EM161: 
051011 «o1WS5 i 1250—Cs«*29 LASCII *MULD (R),A FAILED TO TRAP TO 244 ON UNDERFLOW, FIU=1." 
6482 051076 080 102 128 "ASCIZ *(BUT FIUS STATE 137 WENT TO 115 INSTEAD OF 155.° 
6483 051156 5 EM162: 
051156 115 125 114 .ASCII “MULD (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIv=1.° 
84051242 0502S «102—Sts«*128 "ASCIZ ‘(BUT Flv) STATE 333 WENT TO 116 INSTEAD OF 136." 
6485 051322 EM163: 
051322 115 125 114 ASCII ‘MULD (R),A FAILED. *<CRLF> 
6486 051345 105 = 130s‘ 120 "ASCII “EXPECTING OVERFLOW, FIV=1.' 
6487 051377, 200~Ss(«(050——t—é‘i02 ASCIZ <CRLF>* (BUT FD) STATE 700 WENT TO 426 INSTEAD OF 427." 
6488 05145 EM164 
05145 115 125 114 -ASCII ‘"MULD (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIv=1.° 
6489 051543 050-'si‘é02s—i(itsé«i2S "ASCIZ ‘(BUT FIV) STATE 133 WENT TO 116 INSTEAD OF 136.* 
6490 051623 106 120 123 EMSS: ASCIZ ‘FPS BAD AFTER MODF (R),A.° 
6491 051655. 115 «117 104 £EM53:  [ASCIZ ‘MODF (R),A FRACTION BAD, 
6492 05170 115 117 1046 EM54: [ASCIZ ‘MODF (R).A INTEGER BAD.' 
6499 051736 EMS6: 
05173 4 115 117 106 LASCII *MODF (R),A FRACTION BAD. '<CRLF> 
6500 051767, 101-—S—s«*108 0 "ASCIZ "ACO DID NOT GET O IN STATE 424.° 
6501 052027 EMS? 
052027 115sis112—s«2106 -ASCI1 ‘MODF (R),A_INTEGER BAD. '<CRLF> 
6502 052057, s«101,-—~Sfs«*103'—=i(‘«tséiT "ASCIZ ‘AC1 DID NOT GET O IN STATE 142." 
6503 052117 EMO: 
052117, 115.—'s«sd2——«*108 ASCII 'MODF (R).A_INTEGER BAD. '<CRLF> 
6504 052147 = 101,—'si«*d12003'—itiéi ST ASCIZ ‘ACT DID NOT GET THE INTEGER IN STATE 134.° 
6505 052221 EM61: 
052221 1 ee i ae LASCII "MODF (R),A FRACTION BAD. *<CRLF> 
6506 052252 101-—S'i«iHDS—S—«éi02 "ASCIT "A BAD CONSTANT WAS USED (NOT 24) IN STATE 046.° 
6507 0523830 200 117 ~= ‘122 “ASCIZ <CRLF>*OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 150." 
6508 052415 | EM62: 
052415 9115.2 117,—s«'104 LASCI1 "MODE (R),A FRACTION BAD. *<CRLF> 
6509 052446 101 040 102 "ASCIT "A BAD CONSTANT WAS USED (NOT 24) IN STATE 046.' 
e510 052504 2001712, CASI <CRLF>*OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050.* 
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| 
| 052611 «115 


117 104 .ASCII '‘MODF (R),A FRACTION BAD. °<CRLF> 
6512 052642 050 102 125 -ASCIZ ‘(BUT Z7BT) STATE 532 WENT TO 102 INSTEAD OF 122. 
6513 052722 EM64: 
05272 115 117 104 -ASCII1 ‘MODF (R),A FRACTION BAD. ‘<CRLF> 
6514 052753 050 102 125 -ASCIZ. ‘(BUT ENBT EZBT) STATE 041 WENT TO 046 INSTEAD OF 246.' 
6515 053041 EM65: 
053041 115 117 104 eASCII ‘“MODF (R),A FRACTION BAD. '<CRLF> 
6516 053072 050 102 125 “ASCIZ ‘(BUT FT) STATE 126 SHOULD HAVE GONE TO 133. FT=0.° 
6517 053154 EM66: 
053154 115 117 104 ASCII ‘MODF (R),A FRACTION BAD. *<CRLF> 
6518 053205 123 111 107 ASCIZ ‘SIGN BIT BAD.’ 
6519 053223 EMG7: 
053223 115 117 104 eASCII ‘MODF (R),A INTEGER BAD. '<CRLF> 
6520 053253 123 111 107 -ASCIZ ‘SIGN BIT BAD IN STATE 733.° 
6521 053306 115 117 104 EM70: -ASCIZ ‘MODD (R),A FRACTION BAD." 
6522 053337 115 117 104 EM71: ASCIZ ‘MODD (R),A_INTEGER BAD.’ 
6523 053367 106 120 123. EM72: -ASCIZ ‘FPS BAD AFTER MODD (R),A.* 
6524 053367 EM73=EM72 
6531 053421 M74: 
C53421 115 117 104 -ASCII ‘MODD (R),A_INTEGER BAD. '<CRLF> 
6532 053451 050° 102 1 -ASCIZ ‘(BUT FD) STATE 231 WENT TO 142 INSTEAD OF 143." 
6533 053530 EM7S: ’ 
053530 115 117 104 -ASCII ‘MODD (R),A FRACTION BAD. '<CRLF> 
6534 053561 101 103 060 -ASCIZ ‘ACO GETS C IN STATE 425 FAILED.' 
6535 053621 EM76: 
053621 115 117 104 -ASCII ‘MODD (R),.A INTEGER BAD.*<CRLF> 
6536 053651 101 103 061 -ASCIZ ‘AC1 GETS 0 IN STATE 143 FAILED." 
. 6537 053711 EM77: 
053711 115 117 104 ASCII '‘MODD (R),A FRACTION BAD. *<CRLF> 
6538 053742 050 102 125 -ASCIZ "(BUT FD) STATE 526 WENT TO 134 INSTEAD OF 135.° 
6539 054021 EM100: 
054021 115 117 104 -ASCII ‘“MODD (R),A INTEGER BAD. *<CRLF> 
6540 054051 123 111 107 -ASCIZ ‘SIGN BIT BAD IN STATE 526." 
6541 054104 EM101: 
054104 115 117 104 -ASCII ‘MODD (R),A FRACTION BAD. ‘<CRLF> 
6542 054135 101 040 102 .ASCII ‘A BAD CONSTANT WAS USED (NOT 56) IN STATE 046," 
6543 054213 200 117 122 “ASCIZ. <CRLF>"OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 150." 
6544 054300 EM102: 
054300 115 117 104 -ASCII ‘MODD (R),A FRACTION BAD. ‘<CRLF> 
6545 054331 101 040 102 .ASCII ‘A BAD CONSTANT WAS USED (NOT 56) IN STATE 046,° 
6546 054407 200 117 122 SASCIZ <CRLF>'OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050." 
6547 054474 EM103: 
054474 115 117 104 -ASCII “MODD (R),A FRACTION BAD. '<CRLF> 
6548 054525 050 102 125 -ASCIZ ‘(BUT ZBIT) STATE 532 WENT TO 122 INSTEAD OF 102." 
6549 054606 EM104: 
054606 115 117 104 ASCII ‘MODD (R),A_ INTEGER BAD. *<CRLF> 
6550 054636 123 105 124 -ASCII ‘SET INTEGER IN AC1 FAILED,‘ 
6551 054670 200 117 122 -ASCIZ <CRLF>'OR (BUT FD) STATE 753 WENT TO 156 INSTEAD GF 157.° 
6552 054753 EM105: 
054753 115 117 104 -ASCII ‘MODD (R),A_INTEGER BAD. *<CRLF> 
6553 055003 050 102 125 sASCIZ ‘(BUT FD) STATE 122 WENT TO 424 INSTEAD OF 425." 
6554 055062 EM106: 
055062 115 117 104 -ASCII ‘MODD (R),A_INTEGER BAD. ‘<CRiF> 
6555 055112 050 102 125 “ASCIZ. ‘(BUT FD) STATE 246 WENT TO 126 INSTEAD OF 127." 
6556 055171 EM107: 
055171 115 117 104 eASCII '"MODD (R),A_ INTEGER BAD. '<CRLF> 
6557 055221 050 102 125 “ASCIZ ‘(BUT FD) STATE 446 WENT TO 126 INSTEAD OF 127." 
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| 6558 055300 M110: 
055300 115 117 104 ASCII 'MODD (R),A FRACTION BAD. *<CRL 
6559 055331 050 02 125 “ASCIZ ‘(BUT FT) STATE 127 WENT TO 315 INSTEAD OF 113.° 
6572 055410 EM165: 
955410 115 104 ASCII /MODF (R),A FRACTION BAD. RESULT OVER OR UNDER FLOW./ 
6573 055473 000 “BYTE 0 
| 6574 055474 EM166: , 
055474 115-117 104 ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
6575 055556 000 “BYTE 0 


6576 055557 EM167: 
055557 


106 120 123 LASCII /FPS BAD AFTER MODF (R),A./ 
6577 055610 —-000 “BYTE 0 
6578 055611 EM170: | 
055611 106 = 105. s«*103 .ASCII /FEC BAD AFTER MODF (R),A./ 
6579 055642 «105. sis1302—'—t—«*i120 “ASCIZ EXPECTING UNDERFLOW, FEC=12.' 
6580 055677 EM171: 
055677, 115s, 108 LASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
6581 055761 = 200 -~—S—s10 103 _——sLASCIZ_~<CRLF>"ACT GETS 0 IN STATE 126 FAILED. 
6582 056022 EM172: 
C56022 = «'106.—' iss«d105~—'—its«i2088 LASCII /FEC BAD AFTER MODF (R),A./ 
6583 056053 =6:*105—'—(asiéd1802~:*—ti‘é«‘i20 “ASCIZ ‘EXPECTING OVERFLOW, FEC=10.° 
6584 056107 EM173: 
056107 115.1710 “ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6585 056171 200 050 102 "ASCIZ <CRLF>* (BUT FIV FD) STATE 520 WENT TO 142 INSTEAD OF 162.° 
6586 056255 EM174: 
056055 9115.17, .ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6587 056337, = 200-2 s«050———«*102 "ASCIZ <CRLF>* (BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 142.' 
6588 056423 | EM175: 
056423 3=«-115.s«sd117—‘106 -ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
6589 056505 = 200—'—sia123——Sts—=éid™”0701 "ASCIZ <CRLF>'SIGN BAD IN STATE 517." 
6590 056535 EM176: 
056535 39115. s«117, ‘106 LASCII /MODD (R),A FRACTION BAD. RESULT OVER OR UNDER FLOW. / 
6591 056620 000 “BYTE 
6592 056621 120. 117  .127 €M177: ‘%ASCIZ POWER MONITOR BIT FOUND SET: 
6593 056655 EM200: 
056655 106 = =120 ~—:123 ASCII /FPS BAD AFTER MODD (R),A./ 
6594 056706 000 “BYTE 0 
6595 056707 EM201 : 
056707 «1106S s«105-—i—ié«i088 ASCII /FEC BAD AFTER MODD (R),A./ 
659% 056740 200 105 130 TASCIZ <CRLF>"EXPECTING UNDERFLOW, FEC=12.' 
6597 056776 EM202: 
056776 396115. s«sd1i17— ‘104 ASCII /MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW, / 
6598 057060 200 050 102 ASCI? <CRLF>*<BUT FD) STATE 241 WENT TO 126 INSTEAD OF 127." 
6599 057140 EM203: 
057140 115 117 = 104 LASCII /MODD _(R),A INTEGER BAD. RESULT OVER OR UNDER FLOW,/ 
6600 057222 «= 200-—Ss«050—«éi202 “ASCIZ. <CRLF>* (BUT FD) STATE 047 WENT TO 126 INSTEAD OF 127.° 
6601 057302 EM204 : 
057302 496 106-—S «10 103 “ASCII /FEC BAD AFTER MODD (R).A./ 
6602 057333 200105150 ASCIZ <CRLF>" EXPECTING OVERFLOW, FEC=10.° 
115 117106 “ASCII /MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
200 050102, ASCIZ <CRLFDY (BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 163. 
ve 11F “ASCII /MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
200 050 ~=—-:102 "ASCIZ <CRLF>* (BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 143.° 
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6701 057704 EM207: | 
7704 . 101 104 104 SCIZ /ADDD (R),A PRODUCED A BAD RESULT./ 
6702 057746 —M210: 
057746 124 110 105 .ASCIZ /THE FPS WAS BAD AFTER ADDD (R),A./ | 
6703 060010 101 104 104 €M211: .ASCII ‘ADDD (R),A FAILED IN THE ROUND\ TRUNK FLOWS.' 
6704 060063 200 127 105 "ASCII <CRLF>'WENT FROM STATE 663_TO 313,'<CRLF> 
6705 060120 111 116 123 “ASCIZ. ‘INSTEAD OF FROM 663 TO 353." 
6730 060154 EM212: 
060154 101 104 104 ASCII ‘“ADDD (R),A FAILED IN THE ROUND\ TRUNK FLOWS.' 
060227 200 124 110 "ASCII <CRLF>'THE FPS WAS BAD. '<CRLF> 
060251 104 111 104 ASCII ‘DID NOT TAKE THE PATH: ‘<CRLF> 
060300 106 122 117 ASCIZ /FROM STATE 664, TO 505, TO 251./ 
6731 060340 EM213: 
060340 101 104 104 -ASCII ‘ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. ° 
060413 200 124 110 ASCII: <CRLF>*THE FPS WAS BAD. ‘<CRLF> 
35 104 111 104 ASCII ‘DID NOT TAKE THE PATH: ‘<CRLF> 
060464 106 122 117 "ASCIZ /FROM STATE 664, TO 505, TO 253./ 
6732 060524 EM214: 
060524 101 104 104 -ASCII ‘ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. ' 
060577 200 124 110 ASCII <CRLF>*THE FPS WAS BAD. ‘'<CRLF> 
060621 104 111 104 ASCII] ‘DID NOT TAKE THE PATH: ‘<CRLF> 
060650 106 122 117 “ASCIZ /FROM STATE 664, TO 705, TO 735./ 
6733 060710 EM215: 
060710 101 104 104 -ASCII ‘ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. ' 
060763 200 124 110 ASCII <CRLF>*THE FPS WAS BAD. '<CRLF> 
061005 104 111 104 ASCII ‘DID NOT TAKE THE PATH: ‘*<CRLF> 
061034 106 122 117 "ASCIZ /FROM STATE 664, TO 705, TO 737./ 
6734 061074 124 110 105 §—M216: .ASCII ‘THE (BUT FIU FORK IN THE OVER\UNDER FLOWS FAILED. FIU =1.° 
6735 061165 200 127 105 ASCII] <CRLF>*WENT FROM STATE 331 TO 115.°<CRLF> 
6736 061222 111 116 123 "ASCIZ ‘INSTEAD OF FROM 331 TO 155." 
6737 061256 101 104 104 £M217: .ASCIZ ‘ADDD (R)A TRAPPED TO 244,. FID=1.' 
6738 061320 EM220: 
0 101 104 104 -ASCII /ADDD (R),A TRAPPED TO 244./<CRLF> 
124 110 105 “ASCII. "THE RESULT WAS AN OVERFLOW CONDITION BUT FIV= 0.° 
200 050 102 .ASCIZ <CRLF>/(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116./ 
111 116 123 swat "ASCIZ /INSTEAD OF FROM 133 TO 116./ 
101 104 104 ASCII /ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 
124 110 105 ASCII ‘THE RESULT WAS A OVERFLOW CONDITION AND FIV=1.°<CRLF> 
124 110 105 "ASCII /THE (BUT FIV) FORK FAILED./<CRLF> 
127 105 116 "ASCII /WENT FROM STATE 133 TO 116,/<CRLF> 
111 116 123 —M222 .ASCIZ /INSTEAD OF FROM 133 TO 136./ 
101 104 104 ASCII /ADDD (R),A TRAPPED TO 244./<CRLF> 
124 110 105 "ASCII ‘THE RESULT WAS AN UNDERFLOW CONDITION BUT FIU= 0.° 
200 050 102 "ASCIZ <CRLF>/(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115./ 
111 116 123 Ma ASCIZ /INSTEAD OF FROM 331 TO 115./ 
101 104 104 -ASCII /ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 
124 110 105 "ASCII "THE RESULT WAS A UNDERFLOW CONDITION AND F 1U=1.*<CRLF> 
124 110 105 "ASCII /THE (BUT FIU) FORK FAILED./<CRLF> 
127 105 116 "ASCII /WENT FROM STATE 331 TO 115,/<CRLF> 
111 116 123. call "ASCIZ /INSTEAD OF FROM 331 TO 155./ 
101 104 104 -ASCII /ADDD (R),A TRAPPED TO 244./<CRLF> 
124 110 105 ASCII 'THE RESULT WAS AN UNDERFLOW CONDITION BUT FIU= 0." 
200 050 102 .ASCIZ <CRLF>/(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115./ 
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mw 
Ww 


Hate aiceicahi aiulatiutiat af 
SS SNE NOMS 


MOD NOD NOOO MW -COO 
BNF RNS SU 


ee eee 
mOCOO 


EM225: 


EM226: 
EM227: 
EM230: 
EM231: 


-AS 
EM232=EM210 


EM233: 
-ASCIZ 

EM234: 
ASCII 
-ASCIZ 

EM235: 
ASCIZ 

EM236: 
ASCIZ 

EM237: 
ASCII 
ASCIZ 

EM240: 
ASC1Z 

EM241: 
ASCII 
ASCII 
ASCII 
-ASCIZ 

EM242: 
ASC1Z 

EM243: 
ASCII 
ASCII 
ASCII 
ASC1Z 


/INSTEAD OF FROM 137 TO 115./ 


/ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 

"THE RESULT WAS A UNDERFLOW CONDITION AND FIU=1.°<CRLF> 
/THE (BUT FIU) FORK_FAILED,/<CRLF> 

/WENT FROM STATE 137 TO 115,/<CRLF> 

/INSTEAD OF FROM 137 TO 155./ 


. JADDD (R), A TRAPPED TO 244,/ 


SEQUENCE 


<CRLF>"BECAUSE OF AN EXPECTED OVERFLOW CONDITION, *<CRLF> 


"BUT THE FEC WAS BAD." 


/ADDD (R),A TRAPPED TO 244 
<CRLF>* BECAUSE OF AN EXPECTED OVERFLOW CONDITION, *<CRLF> 
‘BUT THE FPS WAS BAD.' 


/ADDD (R),A TRAPPED TO 244,/ 
<CRLF >" BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, '<CRLF> 
‘BUT THE FEC WAS BAD." 


/ADDD (R),A TRAPPED TO 244,/ 


<CRLF>*BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, '<CRLF> 
"BUT THE FPS WAS BAD. 


\LDCFD (R)+,A RESULT INCORRECT.\ 


\RO BAD AFTER LDCFD (R)+,A.\ 
<CRLF>'A BAD CONSTANT WAS USED.' 


\PC BAD AFTER LDCFD #NUM,A. TRAP TO 4.\ 
\PC BAD AFTER LDCFD #NUM,A.\ 


\RO BAD AFTER LDCDF (R)+,A.\ 
<CRLF>*A BAD CONSTANT WAS USED." 


\FPS BAD AFTER LDCFD (R)+,A.\ 


\LDCFD (R)+,A FAILED. \ 
ne THE FD 

"BIT WAS NOT COMPL IMENTED . 
"IN STATE 017.° 


\FPS BAD AFTER LDCDF (R)+,A.\ 


\LDCDF a a FAILED. \ 
iY col HE f 

"BIT WAS NOT COMPL IMENTED . 
"IN STATE 017." 
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6787 064574 EM244: 

6788 064574 114 104 103 eASCIZ \LDCDF (R)+,A RESULT INCORRECT.\ 

6789 064633 114 104 103 EM245: .ASCII '‘LDCFD (R),A FAILED.’ 

6790 064656 200 123 105 ASCII <CRLF>"SET SIGN FAILED ° 

6791 064677 111 116 040 eASCIZ ‘IN STATE 5i2.' 

6792 064715 125 116 105 EM247: .ASCIZ ‘UNEXPECTED FPP TRAP TO 244, ; 

6793 064751 125 116 105 €M250: .ASCIZ ‘UNEXPECTED CPU TRAP TO 4, 

6794 065003 125 116 105 EM251: .ASCIZ ‘UNEXPECTED CPU TRAP TO 10." 

6796 065036 103 117 122 €M252: .ASCIZ ‘CORRECT FLOWS INTERRUPT TEST MODULE FAILED TO INTERRUPT." 

6801 

6802 tata EM253: 

06512 101 104 104 .ASCIZ. /ADDD ACO,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
6803 088215 EM254: 
065213 101 104 104 EM255 -ASCIZ /ADDD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

101 104 104 stent: -ASCIZ /ADDD (RO)+,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
101 104 104 sii -ASCIZ /ADDD @(RO)+,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
101 104 104 ith .ASCIZ /ADDD -(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
101 104 104 salt .ASCIZ /ADDD @-(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
101 104 104 see. .ASCIZ /ADDD NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
101 104 104 Sal .ASCIZ /ADDD @NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
104 111 126 cai .ASCIZ /DIVD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
115 125 114 ial -ASCIZ /MULD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
115 117 104 "  .ASCIZ /MODD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
103 117 122 eh .ASCIZ ‘CORRECT FLOWS INTERRUPT TEST MODULE CAUSED UNEXPECTED INTERRUPT. ° 
115 117 104 "ASCII /MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
000 -BYTE 0O 
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ys 34 SBTTL ERROR DATA TABLE HEADERS 
6819 (66436 040 040 124 DH1 ASCII] ‘* TEST. *<TAB>* CALL AT xs "<TAB>" ERROR AT PC.‘<TAB> 
6820 066477 107 117 124 ASCIZ ‘GOT FPS. "<TAB>" EXPECTED FPS. 
6821 066526 040 040 124 DHe: iat: " TEST. '<TAB>'CALL AT PC." <TAB>" ERROR AT PC.° 
6822 436 DH3=DH1 
6825 36 DH4=DH1 
6824 066436 DHS=DH1 
6825 0664 DH6=DH1 
6826 0664 36 DH7=DH1 
6827 066436 DH10=DH1 
6828 0664 36 DH11=DH1 
6829 066436 DH12=DH1 
6830 066436 DH13=DH1 
6831 066436 DH14=DH1 
6832 0664 DH15=DH1 
68335 0664 36 DH16=DH1 
6834 066567 040 040 124 17: ASCIZ ‘ TEST.'<TAB>'PC OF CALL. '<TAB>'PC OF ERROR. '<TAB>'FEC.*<TAB>'FPS.° 
6835 066436 DH20=DH 
68 C 040 040 124 H21: ASCII ‘ TEST.'<TAB>' PC OF CALL" <TAB>" PC OF ERROR. '<TAB> 
6837 066702 107 117 124 ASCIZ ‘GOT FEC.'<TAB>'EXPECTED FEC. 
6838 066731 040 040 124 22: ASCIZ °* TEST.'<TAB>'PC OF CALL. ‘<TAB>'PC OF ERROR. *<TAB>'FPS.' 
6839 0664 36 DH23=DH1 
6840 066436 DH32=DH1 
6841 0664 36 DH24=DH1 
6842 066436 DH25=DH1 
6843 06643 DH26=DH1 
6844 066436 DH27=DH1 
6845 066436 DH30=DH1 
6846 066436 DH31=DH1 
6847 66436 DH33=DH1 
6848 066436 DH34=DH1 
6849 43 DH35=DH1 
6850 066436 DH36=DH1 
6851 066436 DH37=DH1 
6852 066436 DH40=DH1 
6853 066436 DH41=DH1 
6854 0664 36 DH42=DH1 
6855 066436 DH43=DH1 
6856 066436 DH44=DH1 
6857 06643 DH45=DH1 , 
6858 0664 36 DH246=DH1 : 
6859 0664 36 DH46=DH1 
6860 0664 36 DH47=DH1 
6861 066436 DHS0=DH1 
6862 0664 36 DHS1=DH1 
6863 664 DH52=DH1 
6864 64 DH111=DH1 ; 
6865 066436 DH112=DH1 *. 
6866 0664 36 DH113=DH1 
066436 DH114=DH1 
6868 066777 040 040 124 DH115: .ASCII °‘ TEST.*<TAB>'PC OF CALL. *<TAB>' PC OF ERROR. '*<TAB> 
6869 067040 107 1i¢ 124 .ASCIZ ‘GOT FEC.*°*GOT FPS. "EXPECTED FPS, 
6870 066777 DH116=DH115 
6871 066777 DH117=DH115 
6872 066777 DH120=DH115 
6873 066777 DH121=DH115 
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ERROR DATA TABLE HEADERS 
6874 066777 DH122=DH115 
6875 066436 DH123=DH1 
6876 0664 36 DH124=DH1 
6877 066436 DH125=DH1 
6878 36 DH126=DH1 
066777 DH127=DH115 | 
6880 777 DH130=DH115 
6881 066777 DH131=DH115 
6882 36 DH132=DH1 
6883 066777 DH133=DH115 
066777 DH134=DH115 
6885 36 DH135=DH1 
066777 DH136=DH115 | 
6887 066777 DH137=DH115 | 
6888 066777 DH140=DH115 | 
6889 066777 DH141=DH115 | 
066777 DH142=DH115 
6891 066777 DH143=DH115 | 
6892 066777 DH144=DHi15 | 
6893 0664 36 DH145=DH1 | 
6894 0664 36 DH146=DH1 
6895 066436 DH147=DH1 
6896 5436 DH150=DH1 
6897 066777 DH151=DH115 
6898 066777 DH152=DH115 
6899 066777 DH153=DH115 
6900 066777 DH154=DH115 
6901 066777 DH155=DH115 
6902 066777 DH156=DH115 
6903 36 DH157=DH1 
6904 066777 DH160=DH115 
6905 36 DH167=DH1 
6906 066436 DH162=DH1 
6907 066777 DH163=DH115 
6908 066436 DH164=DH1 
6909 066436 DHS 3=DH1 
6910 066436 DH54=DH1 
6911 066436 DH55=DH1 
6912 066436 DH56=DH1 
6913 066436 DH57=DH1 
6914 36 DH6O=DH1 | 
6915 066436 DH61=DH1 
6916 066436 DH62=DH1 
6917 436 DH63=DH1 
6918 066436 DH64=DH1 
6919 066436 DH65=DH1 
6920 066436 DH66=DH1 
6921 36 DH67=DH1 
6922 36 DH70=DH1 
6923 066436 DH71=DH1 
6924 066436 DH72=DH1 
6925 36 DH73=DH1 
6926 36 DH74=DH1 
6927 0664 36 DH75=DH1 
6928 066436 DH76=DH1 | 
6929 066436 DH77=DH1 | 
6930 066436 DH100=DH1 





CKFPBBO FP11F FLTG PNT PRT B 


ERROR DATA TABLE HEADERS 


enh 067076 


2 
6983 067561 
6984 
6985 067622 
6986 067662 
6987 


066436 
066436 
066436 


067472 


040 


040 
011 


040 


040 
106 


107 
040 
107 


040 


040 
107 
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124 


Senge ys 


124 
117 


DH101=DH1 
DH102=DH1 


DH110=DH1 
DH165=DH1 
DH166=DH1 


DH173=DH1 
DH174=DH1 


Ss Is D BS SS SS SS 
MMMM AMAIA aT 


DH220: .ASCIZ 
DH207: .ASCII 

-ASCIZ 
DH210 ASCIZ 


-AS 
DH221=DH210 
DH222=DH220 


I] 
-ASCIZ 
-ASCII 
-ASCIZ 
DH230=DH226 
DH231=DH227 
DH232=DH227 
DH233: .ASCIZ 


DH234: .ASCII 
-ASCIZ 


SEQUENCE 


' TEST!<TAB>!ERR PC: <TAB>: CPU ERROR REGISTER, 


' TEST.*<TAB>'PC OF CALL. *<TAB>'PC 
" TEST.'<TAB>'PC OF CALL. *<TAB>*PC 
<TAB>'GOT FPS.'<TAB>"EXPECTED FPS.° 
' TEST.*<TAB>'PC OF CALL. '<TAB>*PC 


* TEST."<TAB>'PC OF CALL. '<TAB>’PC 
<TAB>'FPS.'<TAB>'FEC.* 


* TEST."<TAB>'PC OF CALL. ‘<TAB>*PC 
<TAB>'GOT FEC. '<TAB>"EXPECTED FEC.' 
" TEST."<TAB>'PC OF CALL.'<TAB>'PC 
<TAB>'GOT FPS.'<TAB>'EXPECTED FPS." 


* TEST."<TAB>'PC OF CALL.*<TAB>'PC 


* TEST.'<TAB>'PC OF CALL.'<TAB>'PC 
<TAB>'GOT RO.'<TAB>"EXPECTED RO." 


OF 


OF 
OF 


OF 
OF 


TRAP. * 
ERROR." 


ERROR." 


ERROR." 


TRAP. * 
TRAP." 


ERROR. ' 
ERROR. 


158 


ee 
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ERROR DATA TABLE HEADERS 


6988 067710 040 0 
6989 067734 120 1 


6990 
6991 067750 





* TEST.*<TAB>'PC OF CALL. *<TAB> 
‘PC OF TRAP.*<TAB> 


ASCII 
3 ASCII 
040 040 124 DH236: ii ’ VEST. *<TAB>' PC OF CALL. "<TAB> 
6992 067774 120 103 ASCII ‘PC OF ERROR. *<TAB>'GOT PC. 
pad 070020 011 105 130 ASCIZ <TAB>'EXPECTED PC. 
6995 067622 DH237=DH234 
6996 


0 124 DH235:_ .AS 
040 


6997 070036 040 040 124 DH240: .ASCII ° TEST.*<TAB>'PC OF CALL. *<TAB> 
6998 070062 120 103 040 -ASCI] ‘PC OF ERROR. *<TAB> 

1484 070077 107 117 124 eASCIZ ‘GOT FPS.*<TAB>"EXPECTED FPS." 
7001 067561 DH241=DH233 

7002 070036 DH242=DH240 

7003 067561 DH243=DH233 

7004 067561 DH244=DH233 


5 
7006 070126 040 040 124 DH247: .ASCIZ ° TEST. "<TAB>'PC OF CALL.*<TAB>'PC OF TRAP. *<TAB>' FEC.° 
7007 670173 040 040 124 DH250: .ASCIZ ‘ TEST.*<TAB>'PC OF CALL.'<TAB>'PC OF TRAP." 


aise 070173 DH251=DH250 
7010 066526 DH252=DH2 
7011 066436 DH253=DH1 
7012 0664 36 DH254=DH1 
7013 066436 DH255=DH1 
7014 0664 36 DH256=DH1 
7015 0664 36 DH257=DH1 
7016 36 DH260=DH1 
7017 36 DH261=DH1 
7018 0664356 DH262=DH1 
7019 066436 DH263=DH1 
7020 066436 DH264=DH1 


7021 6 
7022 070233 040 040 124 DH266: .ASCIZ ° TEST.*<TAB>*PC OF CALL.'<TAB>'PC OF TRAP." 
7023 066777 DH267=DH115 





ee ee 


pro ee 


| 
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DATA FORMAT SPECIFIERS 

7024 ~-SBTTL DATA FORMAT SPECIFIERS 
7025 070273 004 000 005 DF1: eBYTE =4,0,5,0,5.0,5.0,5.5.3.5-545 
7026 070311 004 000 005 DF: -BYTE 4,0,5,0,5,5,3,5,5.3 
7027 070273 DF 3=DF 1 

28 079273 DF4=DF1 
7029 070273 DF 5=DF 1 
7030 070273 DF 6=DF 1 
7031 070273 DF 7=DF 1 
7032 070273 DF 10=DF 1 
7033 070273 DF11=DF1 
7034 070273 DF 12=DF 1 
7035 070273 DF 13=DF 1 

070273 DF 14=DF 1 

7037 070273 DF 15=DF 1 
7038 070273 DF 16=DF 7 
7039 070323 004 090 005 OF17: .BYTE 4,0,5,0,5,0.0 
7040 070332 004 000 005 DF20: .BYTE 4,0,5,0,5,0,5,0 
7041 070332 DF 21=DF 20 
7042 070332 DF 22=DF 20 
7043 070342 004 000 005 DF23: .BYTE 4.0,5.0,5,0,5.0,5,5.2.5 Sele de dele reree 
7044 070342 DF 24=DF 23 
7045 070342 DF 32=DF 23 
7046 070342 DF 25=DF 23 
7047 070342 DF 26=DF 23 
7048 070342 DF 27=DF 25 

9 070342 DF 30=DF 23 
7050 070342 DF 31=DF 23 
7051 070366 004 000 005 DF33: BYTE 4,0,5,0,5.0,5,0,5.5.3.5 050300 Ie de ered 
7052 070366 DF 34=DF 33 
7053 070366 DF 35=DF 33 
7054 070366 DF 36=DF 33 
7055 070342 DF 37=DF 23 
7056 070342 ; DF 40=DF 23 
7057 070342 DF41=DF 23 
7058 070342 DF 42=DF 23 
7059 070342 DF 43=DF 23 

070342 DF 44=DF 23 

7061 070342 DF45=DF 23 
7062 366 DF 246=DF 33 
7063 070366 DF 46=DF 33 
7064 070366 DF 47=DF 33 
7065 070366 DF SO=DF 33 
7066 070366 DF51=DF 33 
7067 070366 DF S2=DF 33 
7 070342 DF 111=DF 23 
7069 070342 DF 112=DF 23 
7070 070342 DF 113=DF 23 
7071 070342 DF 114=DF 23 
7072 070412 004 000 005 DFI15: .BYTE 4,0,5,0,5.0.0,0.5.5.2.5.5.2.32elere ree 
7073 070412 DF116=DF115 
7074 070412 DF117=DF115 
7075 070412 DF 120=DF 115 
7076 070412 DF121=DF115 
7077 070412 DF 122=DF115 
7078 070366 DF 123=DF 33 
7079 070366 DF 124=DF 33 
7080 070366 DF 125=DF 33 


ae 


Sela ae a a 
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CKFPBBO FPI11F FLTG PNT PRT B 
DATA FORMAT SPECIFIERS 


7081 

7082 
7083 
i 

| 

| 

| 


NNNNY NN NN NY? 
ot aad =D ab SS3SSSSS%S 
Wr— ONAN EWN 


070436 


; 
2 070462 
3 


070514 


070366 
004 


000 


000 


000 


005 


005 


005 


i 
wn 
WwW 


RRMA 
ANN NAAN 


pnnrnrnnnnnit oh tt th tt i ee 
sovv0vVvVv9V9999I"N0707°7 VF 
ANN DNDN HHH 


scvv9v0000000"00000"00090N"90999N9N9779 
wh AT AT ATA) 


TMD DDNDT HHH Hw www 


DAA ADA 
WINWWNIWNWWWNWNIWNWNWW 


DF70: BYTE 
70 


DF 104=DF 70 


4,0,5.0,5.0,0,0,5.5.3.5 odode Ie Ie dee 03 


4,0,5.0,5.0,5.0,5 65 12e Seeded Delo re dele rerelo dered 


4.0.3,0.5.8,5,0,.$.5.3.5.5.3.5. 5.3.5 5c3c3stctetated 


SEQUENCE 


161 


CKFPBBO FPIIF FLTG PNT PRT B 
DATA FORMAT SPECIFIERS 


970546 
3 


070600 
070632 


070635 
070645 


070671 


070721 


070730 
070745 


070754 


070760 


070514 


070760 
070760 


Cd0 
000 


000 
000 


000 


000 


000 
000 


000 
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005 


005 
000 


005 
005 


005 


005 


005 
005 


005 


005 


scuovvVvVv9707T7079 


DF 201=DF 176 
DF 202=DF 176 
DF 203=DF i176 
DF 204=DF 176 
DF 205=DF 176 
DF 206=DF 176 


DF210: .BYTE 
207: .BYT 
DF 211=DF 207 


F233: .BYTE 
DF234: .BYTE 
DF235: .BYTE 


DF 236=DF 234 
DF 237=DF 234 
DF 240=DF 234 
DF 241=DF 233 
DF 242=DF 234 


=] 
a] 
Nm 
w 
oO 
Tie 
i=] 
wn 
N 
aS 


DF 251=DF 2 


440,5,0,5.0,0,0.5.5 6205s 3 ele declare Dele de Iolo re ree 


4,0, 
4.0.0 


4,0,5.0.5.0,5.0 


e 


0.5.0.5.0,0,0,5.5 636505 e 30S ede dod edeIeIeSeIeIe5 


025.005.505.305 0505030565650 3 55252 ed 


&,0,$,0.5.0,5.0.505050505 5 c5 edad ede Se teeta ten 


4,0,5,0,5.0,0 


4.0,5,0,5.5.5 
4,0,5,0,5.0,0 
4,0,5,0 


4,0,5,0.5,0 


AA 


SEQUENCE 


162 
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DATA FORMAT SPECIFIERS 


7196 070766 004 000 005 pF252: .RYTE 4,0,5.0 
2197 070772 004 000 005 DF 253: "BYTE 40.5.0 50005000545 0055 5500554500050 500e 5454 3050563 


7798 070772 254=DF 253 
7199 070772 DF 255=DF 253 
7200 070772 DF 256=DF 253 
7201 070772 DF 257=DF 253 

DF 260=DF 253 

F253 

; 

070772 DF 264=DF 253 

7207 070772 DF 265=DF 253 

7208 070766 DF 266=DF 252 

7209 07060C DF 267=DF 176 
7210 EVEN 


ea i 


| CxFPRBO FRTIF FLTG PNT PRT B 
| ERROR DATA TABLES 


7211 
7212 
, 7213 
7214 

5 


7258 


071024 
071044 
071062 


071110 


071246 


001232 


ee ee ek ed et = ed = ot 


WWWWRPEPINPENTUNPNENDNENPNONDNUNINIPINNNNNNWG 


oO 

N 
2 — 
WWNRIPIPONINPININDNINNPNGNININDNNONNNOPEPENonony 


~~ SS we St SS OS Ss Ss Ss 


So 
oO 
poor 
GW 


001234 


037455 


037515 


coo SC ee ———— 
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037335 
001240 
037335 


037335 


001244 


037335 


001250 


D132: 
DT23: 


DT32=DT23 


WO NOWE 
vinnie i 


wheiwhohoLoLoho) 


. WORD 
«WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


SEQUENCE 164 


ERROR DATA TABLES 

$TMPO, $TMP1,$TAB,$TMP2, $TAB, $TMPS, $TAB, $TMP6 

SCRLF .MS1,$1MP3,$CRLF MS2,$1TMP4,0 
$TMPO.$TMP1,$TAB,$TMP2, SCRLF .MS3,$IMP3,$CRLF .MS4,$TMP4 ,0 


$TMPO,STMP1,$TAB, $TMP2,$TAB,STMP4,STMPS ,0 
$STMPO,$TMP1,$TAB,STMP2,$TAB,$TIMP4,$TAB,$STMPS 0 

$TMPO,$TMP1,$TAB, $TMP2,$TAB,SIMP4 ,$TAB,SIMPS,C 
$STMPO,$TMP1,$TAB,$TMP2,$TAB,SIMPS 0 

$TMPO,$TMP1,$TAB, $TMP2,$1AB,$TMP7,$TAB,$TMP10,$CRLF .MS1,$1MP3,$CRLF .MS2,$TMP 
$SCRLF MSS, $TMP5 ,$CRIF ,MS6,$TMP6,0 


$TMPO,$TMP1,$TAB,$IMP2,$TAB,$TMP11,$TAB, SIMP12 
$CRLF .MS1,$1MP3,$CRLF .MS2,$1MP4 

SCRLF .MS11,$TMP5, $CRLF .MS12,$TMP6 

$CRLF .MS7,$T7MP7,$CRLF .MS10,$1TMP10,0 


—_— 
A 


cc - OC a 
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ERROR DATA TABLES 

| 7268 071264 DT64=D153 

| 7269 071264 DT65=DT53 

| 7270 071264 DT66=DT53 

7271 071264 DT67=DT53 
7272 071264 DT70=DT53 
7273 071264 DT71=DT53 
7274 071264 DI72=DT53 
7275 071264 D173=DT53 
7276 071264 DT74=D153 
7277 071264 DT75=D153 
7278 071264 DT76=D153 
7279 071264 DT77=DT53 
7280 071264 DT100=DT53 
7281 071264 DT101=DT53 
7282 071264 DI102=DT53 
7283 071264 D1103=DT53 
7284 071264 DT104=DT53 
7285 071264 DT105=DT53 
7286 071264 DT106=DT53 
7287 071264 DT107=DT53 
7288 071264 DT110=DT53 
7289 071212 DT111=DT23 
7290 071212 T112=DT23 
7291 071212 DI113=DT23 
7292 071212 DT114=DT23 
7293 071352 001232 001234 037335 DT115: .WORD $TMPO,$TMP1,$TAB,$TMP2,$TAB,$TMP11,$TMP7,$TAB,$TMP10 
7294 071374 001313 037342 001240 “WORD $CRLF.MS1,$1MP3,$CRLF .MS2,$TMP4 
7295 071410 001313 037455 001244 “WORD $CRLF.MS5.$TMP5,$CRLF .MS6,$TMP6, 0 
7296 071352 DT116=DT115 
7297 071352 DT117=DT115 
1698 071352 DT120=D1115 
7299 071352 DI121=DT115 
7300 071352 DT122=DT115 
7301 071212 DT123sDT23 
7302 071212 DT124=DT23 
7303 071212 DI125=D123 
7304 071212 DT126=DT23 
7305 071352 DT127=DT115 
7306 071352 DT130=DT115 
7307 071352 DT131=DT115 
7308 071212 D1132=DT23 
7309 071352 D1133=D1115 
7310 071352 DT134=DT115 
7311 071212 DT135=DT23 
7312 071352 DT136=DT115 
7313 071352 D1137=DT115 
7314 071352 DT140=DT115 
7315 071352 1141=DT115 
7316 071352 DT142=DT115 
7317 071352 D1143=DT115 
7318 071352 D1144=DT115 
7319 071212 DI145=DT23 
7320 071212 DT146=DT23 
7321 071212 DI147=DT23 
7322 071212 DT150=DT123 
7323 071352 DT151=DT115 
7324 071352 DT152=pT115 





[—- 


| CKFPBBO FP11F FLTG PNT 
ERROR DATA TABLES 
| 7325 071352 
7326 071352 
7327 071352 
7328 071352 
7329 071212 
7330 071352 
7331 071212 
7332 071212 
7333 071352 
7334 071212 
7335 071426 001232 
7336 071446 1313 
7337 071462 001313 
7338 071476 001313 
73 071426 
7340 071426 
7341 071426 
7342 071426 
7343 071426 
7344 071426 
7345 071426 
7346 071426 
7347 071426 
7348 071514 001232 
7349 071426 
7350 071426 
7351 071426 
7352 071426 
7353 071426 
7354 071426 


5 
7356 071524 001232 


001232 
toe 071612 037335 
7362 071620 001232 


736 071620 
7366 071620 
7307 071620 
7368 071524 
7369 071702 001232 
7370 071524 
7371 071524 
7372 071524 
7373 071524 
7374 071524 
7375 071524 
7376 071620 
7377 071620 
7378 071620 


PRT B 


001234 


037515 


001234 


001234 


001242 
001234 


037704 
037746 


001234 


001234 
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037335 


001250 


033760 


037335 


000000 


037335 
601313 
001313 


037335 


037335 


"WORD 


. WO 
DT166=DT165 
DT167=DT165 
DT170=DT165 
DT171=DT165 
DT172=DT165 


DT176=DT165 
DT177: .WORD 
DT200=DT165 
DT201=DT165 
DT202=DT 165 
DT203=DT165 
DT204=DT165 
DT205=DT165 
D1206=D1165 
DT207: .WwORD 
. WORD 


.- WORD 
DT210: .WORD 


. WORD 
DT211=DT207 
DT212: .WORD 


D1226=DI212 


WIWWAWWPO 
Wr-OoO™N 


$TMPO,STMP1,$TAB, $TMP2,$TAB,$TMP13,$1MP11,$TMP12 
SCRLF .MS1,$TMP3,$CRLF .MS2,$TMP4 

$CRLF .MS11,$7MP5 ,SCRLF .MS12,$TMP6 

$CRLF .MS7,$TMP7,$CRLF .MS10,$TMP10,0 


$TMPO,$TMP1,CPSAVE ,0 


STMPO,STMP1,$TAB,STMP2, SCRLF .MS41,$CRLF .STMP3 
SCRLF .MS42,$CRLF ,$TMP4 ,SCRLF .MS43,$CRLF .STMP5S 
SCRLF .MS44,$CRLF ,STMP6,0 
$TMPO,$TMP1,$TAB,STMP2, STAB, SIMPS 
$TAB,STMP4 ,0 


$TMPO,STMP1 ,$TAB, STMP2,$TAB,$TMP10,$TAB,STMP11 
SCRLF .MS41,$CRLF ,$TMP3,$CRLF .MS42,$CRLF .$TMP4 
SCRLF .MS43,$CRLF,STMPS ,SCRLF .MS44,$CRLF ,STMP6,0 


$TMPO,$TMP1,$TAB, STMP2,$TAB,$TMP3.STMP4 ,0 


$IMPO,$TMP1,$TAB,SIMP2,SCRLF 





es a 
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ERROR DATA TABLES 


7382 071734 037632 001244 001 
7383 071746 001313 037704 001 
7384 071756 001232 001234 037 
eee 071776 001232 001234 037 


3 .WORD MS37,$TMP5,$CRLF .MS40,$TMP6 

0 “WORD $CRLF ,MS41,$TMP7,0 

5 OTS ee! “WORD $TMPO.$TMP1,$TAB,$TMP2,$TAB,STMP5,$TMP4,0 
5 1235: .WORD $TMPO,$TMP1,$TAB,STMP2,0 


7387 071756 D1937=D1934 
7388 071756 DT240=DT234 
7389 071722 DT241=DT233 
7390 071756 DT242=DT 234 
7391 071722 D1243=DT233 
7392 071722 DT244=DT233 
7393 071722 D1245=DT233 


7394 071212 DT246=DT23 
7395 072010 001232 001234 037335 DT247: .WORD $TMPO,$TMP1,$TAB,$TMP2,$TAB,STMP3,0 
7396 072026 001232 001234 037335 DT250: .WORD $TMPO,$TMP1,$TAB,STMP2,0 
072026 DT251=DT250 
7398 072040 001232 001234 037335 DI252: .WORD $TMPO,$TMP1,$TAB,STMP2,0 
7399 072052 001232 001234 037335 DT253: .WORD $TMPO,$TMP1,$TAB,STMP2, STAB ee = $TMP10 
7400 072072 001313 037144 001254 "WORD  $CRLF.MSA1,$TMP11,$CRLF ,MSA2, STMP 


7401 672106 001313 037205 001244 “WORD $CRLF .MSA3.$TMP5,$CRLF MSA, stmpe 
7402 072122 001313 037235 001240 .WORD $CRLF,MSA5,$TMP3,$CRLF .MSA6,$TMP4,0 
7403 072052 DT254=DT253 

7404 072052 DT255=DT253 

7405 072052 D1256=DT253 

7406 072052 DT257=DT253 

7407 072052 DT260=DT253 

7408 072052 DT261=DT253 

7409 072052 DT262=DT253 

7410 072052 D1T263=DT253 

7411 072052 DT264=DT253 

7412 072052 DT265=DT253 

7413 072040 DI266=DT 252 





7414 071426 DT267=DT765 
pela 072140 007070 007070 — 7070, 7070,7070,7070 zKLUDGE FOR APT LOAD PROBLEM 
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SYMBOL TABLE 
AAADON 014416 AMSGTY= 000000 BPTVEC= 000014 DF1 070273 DF161 = 070366 
AAAL 013414 AMTYP1= 000000 CCCDON 016130 DF10 = 070273 DF162 = 070366 
AAAIO 014032 AMTYP2= 00 CCC1. 015124 DF100 = 070514 DF163 = 070436 
AAAI] 014070 AMTYP3= 000000 €CC10 015520 DF101 = 070514 DF164 = 070 
AAAI2 014126 AMTYP4= 000 CCC11 015554 DF102 = 070514 DF165 070546 
AAAI3 014164 APASS = 000000 CCC12 015610 DF103 = 070514 DF166 = 070546 
13452 APRIOR= 000 CCC13 «015644 DF104 = 070514 DF167 = 070546 
AAAS —s-: 013510 APTCSU= 000040 CCC2. 015160 DF105 = 070514 DF17.—s- 070323 
AAAG «013546 APTENV= 000001 CCC3. 015274 DF106 = 070514 DF170 = 070546 
AAAS —- 013604 APTSIZ= 900200 CCC4 = 015250 DF107 = 070514 DF171 = 070546 
AAAG 2 APTSPO= 000 CCCS5 =: 015304 DF11. = 070273 DF172 = 070546 
AAA? ~—s-: 013700 ASWREG= 000000 CCC6 «01534 DF110 = 070514 DF173 = 070546 | 
AAAB = 013736 ATESTN= 000 CCC? («015374 DF111 = 070342 DF174 = 070546 
AAAS ~—s«013774 AUNIT = 000000 CCC8 =: 015430 DF112 = 070342 DF175 = 070546 
ABASE = 000000 AUSWR = 000000 CCC9 ~—s«015464 DF113 = 070342 DF176 0706 
ACDW1 = 000000 AVECT1= 000000 CKSWR = 104406 DF114 = 070342 DF177 070632 
ACDW2 = 000000 AVECT2= 000000 CMPSUB 014226 DF115 070412 DF2 070311 
ACPUOP= 000000 BBBDON 015120 CMPTMP 014406 DF116 = 070412 DF20 070332 
ACO =%000000 BBBER1 014674 CNT = 000270 DF117 = 070412 DF200 = 070600 
AC] =% BBBER2 014760 CORDON 033152 DF12 = 070273 DF201 = 070600 
AC2  =%000002 BBBER3 015006 CORFLG 033134 DF120 = 070412 DF202 = 070600 
ACs = 3 BBBER4 015034 CORINT 033146 DF121 = 070412 DF203 = 070600 
ACS = -=% BBBP1 015100 CORMES 040005 DF122 = 070412 DF204 = 070600 
ACS =%000005 BBBP2 015110 COR 032652 DF123 = 070366 DF205 = 070600 
AC6 = BBBO. 014424 CORTMP 033136 DF124 = 070366 DF206 = 070600 
AC7  =%000007 BBB1 014460 CORTRP 033150 DF125 = 070366 DF207 070645 
= BBB2 014506 CORTV 032750 DF126 = 070366 DF21 = 070352 
ADDW1 = 000000 BBB3 —-_-« 014536 CORTVO 033112 DF127 070436 DF210 070635 
ADDW10= BBBG 014564 CORTV1 033116 DF13. = 070273 DF211 = 070645 
ADDW11= 000000 BBBS 014622 032020 DF130 = 070436 DF212 070671 
ADDW12= 000000 BBB6 014630 CORIO 032442 DF131 = 070436 DF213 = 070671 
ADDW13= 000000 BITO = 000001 COR11 032506 DF132 = 070366 DF214 = 070671 
ADDW14= 000000 BITOO = 000001 COR12° . 032546 DF133 = 070436 DF215 = 070671 
ADDW15= 000000 BITO1 = 000002 COR13 032606 DF134 = 070436 DF216 = 070645 
ADDW2 = 000000 BITO2 = 000004 COR2 032044 DF135 = 070366 DF217. 070721 
ADDW3 = 000000 BITO3 = 000010 COR3. 032060 DF136 = 070436 F22 = 070332 
ADDW4 = 000000 BIT04 = 0000 COR33 032072 DF137 = 070412 DF220 = 070645 
ADDWS = 000000 BITOS = 000040 COR4 032132 DF14 = 070273 DF221 = 070645 
Dw6 = 000000 BIT06 = 000100 CORS 032172 DF140 = 070412 DF222 = 070645 
ADDW7 = 000000 BITO7 = 000200 COR6 032232 DF141 = 070412 DF223 = 070645 
ADDW8 = 000000 BITO8 = 000400 COR? 032276 DF142 = 070412 DF224 = 070645 
ADDW9 = 000000 BITO9 = COR8 032336 DF143 = 070412 DF225 = 070645 
ADEVCT= 000000 BIT1 = 000002 COR9 032402 DF144 = 070412 DF226 = 070671 
ADEVM = 000000 BIT10 = 002000 CPSAVE 033760 DF145 = 070342 DF227 = 070671 
AENV = 000000 BIT11 = 004000 CPS 7032 DF146 = 070342 DF23. 070342 
AENVM = 000000 BIT12 = 010000 CPTWO 037050 DF147 = 070342 DF230 = 070671 
AFATAL= 000000 BIT13 = 020000 CR = 000015 DF15 = 070273 DF231 = 070671 
= 000000 BIT14 = 040000 CRLF = 000200 DF150 = 070342 DF232 = 070671 
AMADR2= 000000 BIT15 = 100000 DDDDON 017064 DF151 = 070436 DF233 070730 
= 000000 BIT2 = 000004 DDD1 016134 DF152 = 070436 DF234 070745 
AMADR4= 000000 BIT3. = 000010 DDD2. ss: 016210 DF153 = 070436 DF235 070754 
AMAMS1= 000000 BIT4 = 000020 DDD3 =—-: 016 264 DF154 = 070436 DF236 = 070745 
AMAMS2= 000000 BITS = 000040 DDD4 016340 DF155 = 070436 DF237 = 070745 
AMAMS3= 000000 BIT6 = 000100 DDDS —- 016414 DF156 = 070436 DF24 = 070342 
AMAMS4= 000000 BIT? = 000200 DDD6 ~©=—-: 016470 DF157 = 070366 DF240 = 070745 
AMSGAD= 000000 BIT8 = 000400 DDD7 016544 DF16 = 070273 DF241 = 070730 
AMSGLG= 000000 BIT9 = 001000 DDISP = 177570 DF160 = 070436 DF242 = 070745 
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SYMBOL TABLE 
= 070730 DF65 = 070462 DH147 = 066436 DH230 = 067403 ~ DH52 = 066436 
= 070730 DF66 = 070462 DH15 = 066436 DH231 = 067472 DH53 = 066436 
= 070730 DF67 = 070462 DH150 = 066436 DH232 = 067472 DH54 = 066436 
= 070366 DF? == 070273 DH151 = 066777 DH235 067561 DH55 = 066436 
070760 DF 70 070514 DH152 = 066777 DH234 067622 DH56 = 066436 
= 070342 DF71 = 070514 DH153 = 066777 DH235 067710 DH57 = 066436 
= 070760 DF72 = 070514 DH154 = 066777 DH236 067750 H6 = 066436 
= 070760 DF73 = 070514 DH155 = 066777 DH237 = 067622 DH60 = 066436 
070766 DF74 = 070514 DH156 = 066777 DH24 = 066436 DH61 = 066436 
070772 DF75 = 070514 DH157 = 065436 DH240 070036 DH62 = 066436 
= 070772 DF76 = 070514 DH16 = 066436 DH241 = 067561 DH63 = 066436 
= 070772 DF77 = 070514 DH160 = 066777 DH242 = 070036 DH64 = 066436 
= 070772 DH1 36 DH161 = 066436 DH2435 = 067561 DH65 = 066436 
= 070772 DH10_ = 36 DH162 = 066436 DH244 = 067561 DH66 = 066436 
= 070342 100 = 066436 DH163 = 066777 DH245 = 067561 DH67 = 066436 
= 070772 DH101 = 36 DH164 = 066436 DH246 = 066436 DH7 = =_: 066436 
= 070772 | DH102 = 066436 DH165 = 066777 DH247 =: 070126 DH70 = 066436 
= 070772 . DH103 = 066436 DH166 = 066777 DH25 = 066436 DH71 = 066436 
= 070772 DH104 = 066436 DH167 = 066777 DH250 070173 DH72 = 066436 
= 070772 DK105 = 066436 DH17 066567 DH251 = 070173 DH73 = 066436 
= 070772 DH106 = 066436 DH170 = 066777 DH252 = 066526 DH74 = 066436 
= 070766 DH107 = 36 DH171 = 066777 DH253 = 066436 DH75 = 066436 
= 070600 DH11_ = 066436 DH172 = 066777 DH254 = 066436 DH76 = 066436 
= 070342 DH110 = 066436 DH173 = 066777 DH255 = 066436 DH77 = 066436 
= 070273 DH111 = 066436 DH174 = 066777 DH256 = 066436 DISPLA 001142 
= 070342 DH112 = 066436 DH175 = 066777 DH257 = 066436 DISPRE 000174 
= 070342 DH113 = 066436 DH176 = 066777 DH26_ = 066436 DIVDSU 01662 
= 070342 DH114 = 066436 DH177 067076 DH260 = 066436 DIVDT 017054 
070366 DH115 066777 DH2 066526 DH261 = 066436 DIVFSU 015704 
= 070366 DH116 = 066777 DH20_ = 066436 DH262 = 066 DIVFT 016120 
= 070366 DH117 = 066777 DH200 = 066777 DH263 = 066436 DSWR = 177570 
= 070366 DH12 = 066436 DH201 = 066777 DH264 = 066436 DT1 071024 
= 070342 DH120 = 066777 DH202 = 066777 . DH265 = 066436 DT10 = 071024 
= 070273 DH121 = 066777 DH203 = 066777 DH266 §8=—: 070233 DT100 = 071264 
= 070342 DH122 = 066777 DH204 = 066777 DH267 = 066777 DT101 = 071264 
= 070342 DH123 = 066436 DH205 = 066777 DH2e7 = 066436 DT102 = 071264 
= 070342 DH124 = 066436 DH206 = 066777 DH = 066436 DT103 = 071264 
= 070342 DH125 = 066436 DH207 067177 DH30 = 066436 DT104 = 071264 
= 070342 DH126 = 066436 H21 066642 DH31 = 066436 DT105 = 071264 
= 070342 DHi27 = 066777 DH210 067267 DH32 = 066436 DT106 = 071264 
= 070366 DH13_ = 066436 DH211 = 067267 DH33 = 066436 DT107 = 071264 
= 070366 DH130 = 066777 DH212 = 067177 DH34 = 066436 DT11_ = 071024 
= 070273 DH131 = 066777 DH213 = 067177 DH35 = 066436 DT110 = 071264 
= 070 DH132 = 066436 DH214 = 067177 DH36 = 066436 DT111 = Q71212 
= 070366 DH133 = 066777 DH215 = 067177 DH37 = 066436 DT112 = Q71212 
= 070366 DH134 = 066777 DH216 = 067267 DH4 = =_- 066436 DT113 = 071212 
070462 DH135 = 066436 DH217 067330 DH40 = 066436 DT114 = QO71212 
= 070462 DH136 = 066777 H22 066731 DH41 = 066436 DTi*£ Q71352 
= 070462 DH137 = 066777 DH220 067137 DH42 = 066436 DT11e = 071352 
= 070462 DH14_ = 066436 DH221 = 067267 DH43 = 066436 DT117 = 071352 
= 070462 DH140 = 066777 DH222 = 067137 DH44 = 066436 D112 = 07102 
= 070273 DH141 = 066777 DH223 = 067267 DH45 = 066436 DT120 = 071352 
= 070462 DH142 = 066777 DH224 = 067137 DH46 == 066436 DT121 = 071352 
= 070462 DH143 = 066777 DH225 = 067267 DH47 = 066436 DT122 = 071352 
= 070462 DH144 = 066777 DH226 §=—. 067403 DHS == 066436 DT123 = O71212 
= 070462 DH145 = 066436 DH227 3=— 067472 DHSO == 066436 DT124 = 071212 
= 070462 DH146 = 0664 DHe5 = DH51 = 066436 DT125 = O7121e 
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SYMBOL TABLE 
DT126 = 071212 DT21 071152 D131 = 071212 EMTVEC= 000030 EM160 050653 
DT127 = 071352 DT210 071576 DT32 = O71212 M 40044 EM161 051011 
DT13_ = 071024 DT211 = 071524 D133 = 071212 EM10 040663 EM162 051156 
DT130 = 071352 CT212 071620 D734 = 071212 EM100 54021 EM163 051322 
DT131 = 971352 DT2135 = 071620 DT35 = 071212 EM101 054104 EM164 051457 
DT132 = 071212 DT214 = 071620 D136 = 071212 EM102 054300 EM165 055410 
DT133 = 071352 DT215 = 071620 D137 == 071212 EM103 054474 EM166 055474 
DT134 = 071352 DT216 = 071524 DT4 == 071024 EM104 054606 EM167 055557 
DT135 = 071212 DT217 9071702 D140 = 071212 EM105 054753 EM17 041643 
DT136 = 071352 DT22 071174 D141 = O7i212 EM106 055062 EM170 §=055611 
DT137 = 071352 DT220 = 071524 DT42 = O71212 EM107 9055171 EM171 055677 
D114 = 071024 DT221 = 071524 DT43. = 071212 EM11 040770 EM172 056022 
DT140 = 071352 DT222 = 071524 D144 = 071212 EM110 055300 EM173 056107 
DT141 = 071352 DT223 = 071524 D145 = 071212 EM111 044115 EM174 056255 
DT142 = 071352 DT224 = 071524 D146 = 071212 EM112 044172 EM175 64 
DT143 = 071352 DT225 = 071524 D147 == 071212 EM113 044250 EM176 056535 
DT144 = 071352 DT226 = 071620 DTS = 071024 EM114 044326 —EM177 
DT145 = 071212 DT227 = 071620 DT5O = 071212 EM115 044405 EM 
DT146 = 071212 DT23 071212 DT51 = 071212 EM116 044463 EM20 041720 
DT147 = 071212 DT230 = 071620 DT52 = 071212 EM117 = 044542 EM200 66 
DT15_ = 071024 DT231 = 071576 DT53 071264 EM12 041077 EM201 056707 
DT150 = 071212 DT232 = 071524 DT54 = 071264 EM120 044700 EM202 056776 
DT151 = 071352 DT233. 071722 DT55 = 071264 EM121 045036 EM203 057140 
DT152 = 071352 DT234 071756 DT56 = 071264 EM122 = 045173 EM204 057302 
DT153 = 071352 DT235 071776 DT57 = 071264 EM123 045330 EM205 057370 
DT154 = 071352 7236 = 071756 DT6 == 071024 EM124 045406 36 
DT155 = 071352 DT237 = 071756 DT60 = 071264 EM125 045465 EM207 057704 
DT156 = 077352 DT24 = 071212 DT61 = 071264 EM126 = 045543 EM21 041752 
DT157 = 071212 DT240 = 071756 DT62 = 071264 EM127 045622 EM210 057746 
DT16_ = 071024 DT241 = 071722 D163 = 071264 EM13 041206 EM211 
DT160 = 071352 DT242 = 071756 DT64 = 071264 EM130 045700 EM212 060154 
DT161 = 071212 DT243 = 071722 DT65 = 071264 EM131 045757 EM213 
DT162 = 071212 DT244 = 071722 DT66 = 071264 EM132 046115 EM214 060524 
DT163 = 071352 DT245 = 071722 DT67 = 071264 EM133 046253 EM215 060710 
DT164 = 071212 DT246 = 071212 DT7 = 071024 EM134 046411 EM216 061074 
DT165 071426 DT247 072010 DT70 = 071264 EM135 046546 EM217 061256 
DT166 = 071426 DT25_ = 071212 DT71 = 071264 EM136 046703 EM22 2 
DT167 = 071426 DT250 072026 DT72 = 071264 EM137 047040 EM220 061320 
DT17 071110 D251 = 072026 DT73. = 071264 EM14 041322 EM221 061550 
DT170 = 071426 DT252 072040 DT74 = 071264 EM140 047126 EM222 062014 
DT171 = 071426 DT253 072052 DT75 = 071264 EM141 = 044115 EM225 
DT172 = 071426 DT254 = 072052 DT76 = 071264 EM142 = 044172 EM224 062512 
DT173 = 071426 DT255 = 072052 D177 = 071264 EM143 = 047215 EM225 
DT174 = 071426 DT256 = 072052 EEEDON 020074 EM144 = 047273 EM226 063210 
DT175 = 071426 DT257 = 072052 EEE 017070 EM145 047352 EM227 063343 
DT176 = 071426 DT26 = 071212 EEE10 017464 EM146 = 047517 042065 
DT177—s- 071514 DT260 = 072052 EEE11 017520 EM147 047664 EM230 
DT2 071062 DT261 = 072052 EFEE12 017 EM15 041434 EM231 06363 
DT20 071130 DT262 = 072052 EEE13 017610 EM150 050030 EM232 = 057746 
DT200 = 071426 DT263 = 072052 EEE2 017124 EM151 050174 EM233 
DT201 = 071426 DT264 = 072052 EEES 017160 EM152 050262 EM234 064025 
DT202 = 071426 DT265 = 072052 EEE4 017214 EM153 = 045330 
DT203 = 071426 D266 = 072040 EEES 017250 EM154 = 045406 EM236 064157 
DT204 = 071426 DT267 = 071426 EEE6 017304 EM155 050351 EM237 6421 
DT205 = 071426 DT27 = 071212 EEE7 017340 EM156 050427 EM24 042142 
DT206 = 071426 T3. == 071024 EEE8 017374 EM157 050506 EM240 064276 
DT207 = 071524 DT30 == 071212 EEE9 017430 EM16 041546 EM241 064332 
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SYMBOL TABLE 
HX9 012066 MS3 037400 SWREG 000176 $APTHD 004332 SETABL 001336 
IBSAVE 033762 MS37 037632 SwO = 000001 $ATYC 035230 $ETEND 001442 
] 021464 MS4 037427 swoO = 000001 $ATY1 035204 $FATAL 001320 
1111 0630 MS40 037650 swO1 = 000002 $ATY3 035212 $FFLG 035450 
1112 020674 MS41 037704 SwO2 = 000004 $ATY4 035222 $FILLC 
1113 020740 MS415 03766 swO3 = 000010 $AUTOB 001134 $FILLS 001155 
1114 21004 MS42 037730 sw0O4 = 000020 SE 001372 $GDADR 001120 
IOTVEC= 000020 MS43 037746 SwOS = 000040 $BDADR 001122 $GDDAT 001124 
JJJDON 022424 MS44 037763 SwO6 = 000 $BDDAT 001126 $GET42 34 
JJJ1 021470 MS5 037455 sw07 = 009200 $BELL 001306 $GTSWR 035522 
JJJ2 021554 MS6 037477 SwO8 = 000400 $CDwW1 001376 . . 2 
JJJ3 021640 MS7 037515 SwO9 = 00 $CDW2 001400 $HIBTS 004332 
JIS 021724 MULDSU 364 Sw1 = 000002 $CHARC 034752 S$ICNT 001104 
KKKDON 023266 MULDT 020614 Sw10 = 00 $CKSWR 035452 $ILLUP 036362 
KKK1 022430 MULFSU 017650 ® Swil = 004000 $CLR.T 033356 $SINTAG 001135 
KKK3 022474 MULF T SWw12 = 010000 $CMTAG 001100 SITEMB 001114 
KKKS 022540 031770 Swi3 = $CM1 = 000024 $LF 001314 
KKKS 02 NNN1 030746 Sw14 = 040000 $CM2 = 000050 $LFLG 035447 
LF = 2 NNN2 031050 SWw15 = = 000024 $L 0334 
LLLDON 024230 NNN3 031152 SWw2 = 000004 $cM4 = 000024 $LPADR 0011 
LLL1 023272 031254 Sw3 = 000010 $CNTLG 036071 $LPERR 001110 
LLL2 023356 OVDNTT 022414 Sw4 = =: 000020 SCNTLU 036064 DR1 001350 
LLL3 023442 OVDTT 024220 SWS = =_: 000040 $ 001344 S$MADR2 001354 
LLLS 023526 OVFNTT 021454 SWw6 = =_: 000100 $CRLF 001313 $MADR3 001 
L 0050 OVFTT 023256 SW? == 000200 $DDWO 001402 $MADR4 001 
LPERR = 104413 OVUNDN 022014 Sw8 = 000400 $DDW1 001404 $MAIL 001316 
30742 OVUNDT 023616 Sw9 = $DDW10 001426 1 1346 
MyM 1 030020 OVUNFN 021054 TAB =: 000011 $DDW11 001430 SMAMS2 001352 
030972 OVUNFT 022654 TBITVE= 000014 $DDW12 001432 001356 
MMM 3 030144 PIRQ = 177772 TKVEC = 000060 $DDW13 001434 SMAMS4 00 
MM, 030216 PIRQVE= 40 TOCTNM 036764 $DDW14 001436 
MMS 030270 037270 TPVEC = 000064 $DDW15 001440 SMFLG 035446 
= 2 PROGNU= TRAPVE= 000034 $DDW2 001406 SMNEW 036107 
DDO 031750 PR = 000 TRTVEC= 000014 $DDW3 001410 $MSGAD 001332 
MODDD1 031760 PR1 = 000040 TST1 005030 $DDW4 001412 $MSGLG 00 
031362 PR2 = TST10 017066 $DDWS 001414 SMSGTY 001316 
MODDSU 027416 PR3 = 000140 TST11 020076 DDW6 001416 SWR 036076 
MODDTO 027774 PRG = TST12 020626 $DDW7 001420 S$MTYP1 001 
MODDT1 0 PRS = 000240 TST13 021466 $DDwW8 001 $MTYP2 001353 
MODFDO 030722 PR6 = 000300 TST14 022426 $DD 001424 SMTYP3 001357 
MODFD1 030732 PR7 = 000340 TST15 023270 $DEVCT 001326 SMTYP4 001 
MODFOV 030346 PS = 177776 TST16 ©024232 $DE 00 SMXCNT 033756 
MODFSU 025320 PSW = 177776 TST17. =: 025710 $DOAGN 033376 L 1154 
MODFTO 025656 PWRVEC= 000024 TST2 006754 SENDAD 033366 $NWTST= 
MODFT1 025 RDCHR = 104407 TST20 030016 SENDCT 033210 SOCNT 035 
MODP1 025676 RESREG= 104411 TST21 030744 SENULL 033442 E 5202 
MSA1 037144 RESVEC= 00001 TST22 031772 SENV 001336 SOVER 033742 
mMSA2 037162 RSETUP= 104412 TST23 © 033154 SENVM 001337 SPASS 001324 
MSA3 037205 6 =%000006 TST3 011672 $EOP 033154 $SPASTM 004340 
MSA4 037217 7 =% TST4 013412 $EOPCT 033202 36344 
MSAS 037235 SAVREG= 104410 TSTS 014420 SERFLG 001103 SPWRDN 036204 
MSA6 037250 SCOPE = 00000 TST6 015122 $e 001115 
MS1 34 SPACE 037337 TST7 016132 SERROR 033764 36256 
MS10 037541 STACK = 001100 TYPE = 104401 SERRPC 001116 $QUES 001312 
MS11 037563 START 004346 TYPOC = 104402 SERRTB 001442 S$RDCHR 035734 
MS12 37607 STKLMT= 177774 TYPON = 104404 SERTTL 001112 $RDSZ = 000001 
MS2 03736 SwR 001140 TYPOS = 104403 SESCAP 001304 $REGAD 001160 
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SYMBOL TABLE 
$SREGO 001162 $REG6 001176 $TERM = 000030 $TMP22 001276 $TYPEC 034624 
$REG? 001164 $REG7 001200 $TESTN 001322 $TMP23 001300 $TYPEX 034754 


$REGS 001174 $TB1T 033440 $TMP21 001274 $TYPE 034412 -$X = 004332 
. ABS. 072150 000 
000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 59552 WORDS ( 233 PAGES) 
DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 


ELAPSED TIME: 00:08:19 
CKF PBB.BIN, CKFPBB/CR/=SP/NL : TOC=CKF PBB.MLB/ML ,CKFPBB.P11 
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| CKF PBB CREATED BY MACRO ON 28=MAR=-81 AT 14:50 PAGE | 
SEQUENCE 174 
SYMBOL CROSS REFERENCE CREF v01 
| SYMBOL VALUE REFERENCES 
AAADON 014416 15-2444 #15=-2530 
AAA) 13414 #14=224 
AAA10 014032 #14-2376 
AAA11 014070 #15=2394 
| AAA12 014126 #15=2411 
AAA13 014164 #15=2628 
AAA2 013452 #14=2256 
AAAS 013510 #14=2269 
AAAG 013546 #14-2282 
AAAS 013604 #14-2296 
AAAG 013642 #14-2309 
AAA7 013700 #14-2326 
AAAB 013736 #14-2343 
AAAQ 013774 #14-2360 
ABASE = 000000 7-1314 7-1314 
ACDW1 = 000000 7-1314 7-1314 
ACDw2 = 000000 7-1314 7-1314 
AC = 000000 7-1314 7-1314 
ACO =%000000 #6-1303 *9-1352 *9=-1354 9-1357 *9-1386 *9-1388 9=-1391 *9=-1410 *9-1412 
9-1415 *9-1440 #9-1442 99-1445 *9-1462 #91464 9-1467 *10-1582 *10-1584 
10-1587 *10-1606 *10-1608 10-1611 10-1622 *10=1647 *10-1649 10-1652 *10-1671 
*10-1673 10-1676 10-168 *10-1713 *10-1715 10-1718 *12-1739 *12=1741 12-1744 
12-1755 12-1786 12-1812 12-1838 *13-1910 *13-1913 13-1920 *13=1944 *13-1951 
13-1961 *73-1992 *13-2007 *13-2010 13-2013 *13=-2027 *13=2029 13-2032 *13=2057 
*13=2058 *13-2062 13-2067 *13-2088 *13-2092 13-2097 *15-2477 15-2483 15-2511 
*16-2553 *16-255 *16-2576 *16-2578 *16-2598 * 16-2603 *17-2876 *17-2883 17-2890 
*19=3060 * 19-3068 19=3075 *20-3311 *20-3318 20-3325 *21-3458 *21-3466 21-3473 
*22=3645  *22-3664 22-3671 23-3743 = * 24-3897 =. 24-3916 24-3923 24-3 #25-4143 
*25-4162 25-4178 25-4256 *27-4395 *27-4414 27-4430 27-4508 * 28-4797 * 28-4806 
28-4812 *29=-5165 *29-5174 29-5180 * 30-5403 * 30-5412 30-5419 * 31-5622 * 31-5631 
31-5638 33-5796 =. 33-5796 = * 33-5809 = # 33-5823 )=— #3 3-5837 3=—s * 33-5853 = *§ 33-5867 = * 333-5 885 
* 33-5896 * 33-5911 33-5925 * 33-5939 * 33-5982 33-6008 
AC? =%000001 #6-1304 *28-4799 28-4814 *29-5167 29-5182 * 30-5405 30-5421 * 31-5624 31-5640 
AC2 =%000002 #6-1305 
AC3 =%000003 #6-1306 
ACS = #6-1307 
ACS =%000005 #6-1308 
AC6 =%000006 #6-1309 
AC7 =%000007 #6-1310 
ADDWO = 000000 7-1314 7-1314 
ADDW1 = 000000 7-1314 77-1314 
ADDW10 = 000000 7-1314 7-1314 
ADDW17 = 000000 7-1314 7-1314 
ADDW12 = 000000 7-1314 77-1314 
ADDW13 = 7-1314 7-1314 
ADDW14 = 000000 7-1314 7-1314 
ADDW15 = 0 7-1314 7-1314 
ADDW2 = 0 7-1314 7-1314 
ADDW3 == 721314 27-1314 
ADDW4 = 000000 77-1314 77-1314 
ADDWS5 = 000000 7-1314 77-1314 
ADDW6 = 000000 77-1314 7=-1314 


rCoorr---———- ——- Ce ee 


rc 
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CREATED BY MACRO ON 28=MAR=81 AT 14:50 PAGE 2 
SEQUENCE 175 
| SYMBOL CROSS REFERENCE CREF vl 
| SYMBOL VALUE REFERENCES 
| ADDW7 = 7-1314 727-1314 
| ADDWB = 000000 27-1316 7=1314 
| ADDW9 = 000000 7=1314 72-1314 
ADEVCT = 000000 7=1314 7=1314 
ADEVM = 000000 7=1314 7=1314 
AENV = 0 27-1314 7=1314 | 
AENVM = 006000 7-1314 7=1314 
AFATAL = 000000 7=1314 7=1314 
AMADR1 = 000000 77-1314 77-1314 | 
AMADR2 = 000000 7=1314 7=1314 
AMADR3 = 000000 7=1314 727-1314 | 
AMADR4 = 000000 27-1314 7=1314 
AMAMS1 = 000000 7=1314 7=1314 | 
AMAMS2 = 000000 7-1314 7=1314 
AMAMS3 = 000000 7=1314 27-1314 
AMAMSG = 000000 727-1314 7=1314 
AMSGAD = 000000 7=1314 7=1314 
AMSGLG = 000000 27-1314 27-1314 
AMSGTY = 000000 27-1314 7=1314 
AMTYP1 = 000000 7=1314 7=1314 
AMTYP2 = 000000 7-1314 27-1314 
AMTYP3 = 000000 27-1314 727-1314 
AMTYP4 = 000000 7-1314 7=1314 
APASS = 000000 7=1314 77-1314 
APRIOR = 000000 7-1314 
APTCSU = 000040 33-6074 #33-6078 
APTENV = 000001 33-6070 33-6074 33-6078  #33-6078 
APTSIZ = 000200 8-132 #33-6078 
APTSPO = 000100 33-6074 33-6078  #33-6078 
ASWREG = 27-1314 7=1314 
ATESIN = 27-1314 27-1314 
AUNIT = 000000 7-1314 7-1314 
AUSWR = 000000 7-1314 7-1314 . 
AVECT1 = 000000 7-1314 7-1314 
AVECT2 = 000000 7-1314 7-1314 
015120 16-2627 16-2648 16-2656 16-2664 16-2677 #16-2684 
BBBER1 014674 16-2550 #16-2631 
BBBER2 014760 16-2563 16-2585 16-2621 16-2651 
BBBER3 15006 16-2567 16-2589 16-2625 #16-2659 
BBBER4 015034 16-2606 #16-2668 : 
BBBP1 15100 16-2552 16-2554 16-2577 16-2601 416-2679 
BBBP2 015110 16-2575 16-2597 #16-2680 
BBBO 014424 #16-2546 
BBB1 014460 16-25 #16-2556 
BBB2 014506 #16-2570 
BBB3 014536 16-2574  #16-2578 
BBBS 014564 #16-2592 
BBBS 014622 16-2596  #16-2603 16-2608 
BBB6 014630 16-2600 #16-2608 
BITO = 000001 #6-1301 
BITOO = 000001 _ #6-1301 6-1301 33-6068 33-6068 33-6070 33-6070 
BIT01 = 000002 #6-1301 6-1301 





— — 


| CKFPBB CREATED BY 

| SYMBOL CROSS REFERENCE 

| SYMBOL VALUE 

| BITO2 = 000004 
BITO3 = 000010 
BITO4 = 900020 
BITOS = 000040 
BITO06 = 000100 
BITO07 == 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004 
BIT12 = 010000 
B1T1$ = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 
BIT3 = 000010 
BITS = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000406 
BITS = 001000 
BPTVEC = 14 
CCCDON 016130 
ccc 015124 


ccc2 015160 
ccc3 015214 
CCC4 015250 
cccs 015304 
cccé6 015340 
CCC7 015374 
ccc8 015430 
ccc9 015464 
CKSWR = 104406 
CMPSUB 014226 
CMP TMP 014406 
CNT = 000270 


REFERENCES 
#6-1301 


#17-2800 
#17-2811 
#17-2823 
#17-2834 
#17-2709 
#17-2720 
#17-2732 
#17-2743 
#17-2754 
#17-2765 
#17-2777 
#17-2789 


#8-1320 


MACRO ON 28-MAR-81 


33-6068 


#17-293)1 


33-6070 


AT 14:50 P 
— 


AGE 3 
E 176 
REF O01 


° © Seweves cu. 


33-6068 
33-6068 


33-6070 


33-6070 


#33-6082 
14-2283 
15-2429 


#8-1320 


48-1320 
#8-1320 


H 14 


33-6070 


34-6257 
14-2297 


#15-2470 


14-2310 


8-1320 


14-2327 


#8-1320 


#8-1320 


14-2344 


14-2361 


| CKFPBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 4 
SEQUENCE 177 
SYMBOL CROSS REFERENCE CREF v0O1 


' SYMBOL VALUE REFERENCES 


#8-1320 8-1320 8-1320 #8-1320 8-1320 8-1329 #8-1320 8-1320 
#8-1320 8-1320 8-1320 #8-1320 8-1320 8-1320 #8-1320 8-1320 
#8-1320 8-1320 8-1320 #8-1320 8-1320 8-1320 #8-1320 8-1320 
#8-1320 8-1320 8-1320 #8-1320 8-1320 8-1320 #8-1320 8-1320 


#8~-1320 8-1320 8-1320 #8-1320 8-1320 8-1320 #8-1320 8-1320 
oe 1a 8-1320 8-1320 #8-1320 8-1320 8-1320 #8-1520 8-1320 


~ 


J 14 





| 
| CKFPBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 5 
SEQUENCE 178 
| SYMBOL CROSS REFERENCE CREF Ol 
| SYMBOL VALUE REFERENCES : 
| CORDON 033152 33-5773 33-5782 33-5945 33-6041 #33-6058 
| CORFLG 033134 #33-5798 9 * 33-5811 = * 33-5825 «= 33-5839 «= # 33-5855 «= * 33-5869 «= * 33-5884 = # 33-5897 = * 3335-5915 
#33-5927 —#33=5941 —- ® 33-5976 «= # 33-5992 # 33-5999 = * 333-6038 9=—-# 33-6043 
033146 33-5776 33-5994 33-6001 #33-6046 
040005 33-5789 #34-6299 
032652 33-5792 33-580 33-5819 33-5833 33-5849 33-5863 33-5879 33-5892 33-5907 
33-5921 33-5935 #33-5976 
033136 33-6007 33-6009 33-6026  #33-6044 
033150 33-5991 #33-6051 
032750 33-5991 #33-5999 
033112 33-6021 33-6024 33-6029 #33-6033 
033116 33-6000 433-6035 
032020 33-5769 433-5775 
32442 #33-5891 
032506 #33-5906 
032546 #33-5920 
32606 #33-5934 
932044 33-577 #33-5780 
032060 33-5772 33-5778 =#33-5785 
032072 33-5787 #33-5790 
032132 #33-5804 
032172 #33-5818 
032232 #33-5832 
032276 #33-5848 
032336 #33-5862 
032402 433-5878 
033760 «33-6068 33-6068  #33-6068  *33-6070 33-6070 38-7348 
037032 13-1996 13-2008 13-2161 33-5777 33-5781 #34-6218 34-6262 
037050 #34-6229 34-6263 
= 000015 #6-1301 33-6074 33-6074 
= 000200 #6-1299 #6-1301 8-1328 8-1328 33-6074 33-6074 34-6279 34-6279 ~6< 
34-6299 35-6306 35-6308 35-6310 35-6312 35-6314 35-6316 35-6318 35-6520 
35-6322 35-6324 35-6326 35-6328 35-6355 35-6357 35-6364 35-6366 35-6367 
35-6369 35-6370 35-6372 35-6374 35-6381 35-6383 35-6384 35-6386 35-6388 
35-6392 35-6394 35-6414 35-6416 35-6428 35-6430 35-6435 35-6437 35-6444 
35-6446 35-64 35-6468 35-6478 35-6480 35-6485 35-6487 35-6499 35-6501 
35-6503 35-6505 35-6507 35-6508 35-6510 35-6511 35-6513 35-6515 35-6517 
35-6519 35-6531 35-6533 35-6535 35-6537 35-6539 35-6541 35-6543 35-6544 
35-6546 35-6547 35-6549 35-6551 35-6552 35-6554 35-6556 35-6558 35-6581 
35-6585 35-6587 35-6589 35-6596 35-6598 35-6600 35-6602 35-6604 5-66) 
35-6704 35-6704 35-6730 35-6730 35-6730 35-6731 35-6731 35-6731 35-6732 
35-6732 35-6732 35-6733 35-6733 35-6733 35-6735 35-6735 35-6738 35-6738 
35-6739 35-6739 35-6739 35-6739 35-6740 35-6740 35-6741 35-6741 35-6741 
35-6741 35-6742 35-6742 35-6743 35-6743 35-6743 35-6743 35-6744 35-6744 
35-6745 35-6745 35-6746 35-6746 35-6747 35-6747 35-6779 35-6782 35-6784 
35-678 35-6790 
017064 18-3025 #19-3121 
016134 418-2944 
016210 #18-2955 
016264 #18-2966 
016340 #18-2977 
016414 #18-2988 


| K 16 
| CKFPBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 6 | 
SEQUENCE 179 

SYMBOL CROSS REFERENCE CREF  v01 

SYMBOL VALUE REFERENCES 

DDD6 016470 #18-3001 

DDD? 016544 #18-301 . | 

DDISP = 177570 #6-1301 7=1314 8-1327 

DF1 070273 8-1320 #37-7025 37-7027 37-7028 37-7029 37-7030 37-7031 37-7032 37-7033 

A 37-7034 37-7035 37-7036 37-7037 37-7038 

DF10 = 070273 8-1320 #37-7032 

DF100 = 070514 8-1320 #37-7133 

DF101 = 070514 8-1320 #377134 

DF102 == 070514 8-1320 #37-7135 

DF103. == 070514 8-1320 #37-7136 

DF104 = 070514 8-1320 #37-7137 

DF105 = 070514 8-1320 #37-7138 

DF106 = 070514 8-1320 #37-7139 

DF107. = 070514 8-1320 #37-7140 

DF11 = 070273 8-1320 #37-7033 

DF110 = =_ 070514 8-1320 #37-7141 

DF111. = = 070342 8-1320 #37-7068 

DF112 == 070342 8-1320 #37-7069 

DF113 = =_ 070342 8-1320 #37-7070 

DF114 = 070342 8-1320 #37-7071 . 

DF115 070412 8-1320 #37-7072 37-7073 37-7074 37-7075 37-7076 37-7077 37-7090 37-7091 

37-7092 37-7093 37-7094 37-7095 

DF116 = = 070412 8-1320 #37-7073 

DF117. = 070412 8-1320 #37-7074 

OF 12 = 07027 8-1320 437-7034 

DF120 = 070412 8-1320 #37-7075 

DF121 = 070412 8-1320 #37-7076 

DF122 = 070412 8-1320 #37-7077 

DF123 = 070346 8-1320 #37-7078 

DF124 = 366 8-1320 #37-7079 

DF125 = 070366 8-1320 #37-7080 

DF126 = 070366 8-1320 #37-7081 

DF127 0704 36 8-1320 #37-7082 37-7083 37-7084 37-7086 37-7087 37-7089 37-7100 37-7101 

37-7102 37-7103 37-7104 37-7105 37-7107 37-7110 

DF13 = 070273 8-1320 #37-7035 

DF130 ©= =_- 070436 8-1320 #37-7083 

DF131 = 070436 8-1320 #37-7084 

DF132 = = _ 070366 8-1320 #37-7085 

DF133 = = 070436 8-1320 #37-7086 

DF134 = 070436 8-1320 #37-7087 

DF135 = 070366 8-1320 #37-7088 

DF136 = =_- 070436 8-1320 #37-7089 

DF137.—o= 1 8-1320 #37-7090 

DF14 = 070273 8-1320 #37~7036 

DF140 = 070412 8-1320 #37 -7091 

DF141 = 070412 8-1320 #37 -7092 

DF142 = 070412 8-1320 #3 

DF143 == 070412 8-1320 "37-7 

DF144 = 070412 8-1320 #37-7095 

DF145 = =_:-970342 8-1320 #37-7096 

DF146 0 ©6= 070342 8-1320 #37-7097 

DF147 = 070342 8-1320 #37-7098 
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UE 
070273 
0) 


070366 
070546 


070546 


= 070332 
07 


"ou 


437-7142 
437-7143 


#37-7151 
#37-7152 


#37-7159 
437-7161 


#37-7041 
#37-7160 
437-7162 
437-7163 


437-7164 


437-7169 


PAGE 7 
SEQUENCE 180 

CREF vO1 
37-7143 37-7144 
37-7153 37-7154 
37-7041 37-7042 
37-7162 37-7167 
37-7164 37-7165 


L 14 


37-7145 


37-7155 


37-7169 


37-7166 


37-7146 


31-7156 


37-7170 


37-7175 


37-7147 


37-7157 


37-7171 


37-7176 


37-7148 


37-7158 


37-7172 


37-7177 





37-7149 


37-7159 


37-7173 


37-7178 


fp + nr ee i 
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CKF PBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 8 
SEQUENCE 181 
SYMBOL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES 
DF221 = 070645 8-1320 #37-7170 
DF222 = 070645 8-1320 #37-7171 
DF223 == 070645 8-1320 #37-7172 
DF224 = 070645 8-1320 437-7173 
DF225 = 070645 8-1320 437-7174 
DF226 == 070671 8-1320 #37-7175 
DF227 == - 070671 8-1320 #37-7176 
DF 23 070342 8-1320 #37-7043 37-7044 37-7045 37-7046 37-7047 37-7048 37-7049 37-7050 
37-7055 37-7056 37-7057 37-7058 37-7059 37-7060 37-7061 37-7068 37-7069 
37-7070 37-7071 37-7096 37-7097 37-7098 37-7099 
DF230 = 070671 8-1320 37-7177 
DF231 = 070671 8-1320 #37-7178 
DF232 == 070671 8-1320 #37-7179 
DF 233 070730 8-1320 #37-7180 37-7187 37-7189 37-7190 37-7191 
DF 234 070745 8-1320 437-7181 37-7184 37-7185 37-7186 37-7188 
DF 235 070754 8-1320 #37-7°33 
DF236 == 070745 8-1320 #37-7 184 
DF237 = = 070745 8-1320 #37-7185 
DF 24 = 070342 8-1320 437-7044 
DF240 = 070745 8-1320 #37-7186 
DF241 = 070730 8-1320 437-7187 
DF242 == 070745 8-1320 #37-7188 
DF243 = 070730 8-1320 #37-7189 
DF244 = 070730 8-1320 #37-7190 
DF245 = 070730 8-1320 #37-7191 
DF246 = 070 8-1320 #37-7062 
DF 247 070760 8-1320 #37-7192 37-7193 37-7194 
DF 25 = 070342 8-1320 437-7046 
DF250 = 070760 8-1320 437-7193 
DF251 = 070760 8-1320 437-7194 
DF 252 070766 8-1320 #37-7196 37-7208 
DF 253 070772 8-1320 437-7197 37-7198 37-7199 37-7200 37-7201 37-7202 37-7203 37-7204 
37-7205 37-7206 37-7207 
DF254 = 070772 8-1320 #37-7198 
DF255 = 070772 8-1320 #37-7199 
DF256 = 070772 8-1320 437-7200 
DF257 = 070772 8-1320 #37-7201 
DF 26 = 070342 8-1320 437-7047 
DF26C == 070772 8-1320 #37-7202 
DF26i = 070772 8-1320 #37-7203 
262 == 070772 8-1320 #37-7204 
DF263 = 070772 8-1320 #37-7205 
DF264 = 070772 8-1320 #37-7206 
DF265 = 070772 8-1320 437-7207 
DF266 = 070766 8-1320 #%7-7208 
DF267 = 070600 8-1320 437-7209 
DF 27 = 070342 8-1320 437-7048 
DFS = 070273 8-1320 #37-7027 
DF 30 = 070342 8-1320 #37-7049 
DF 31 = 070342 8-1320 #37-7050 
DF 32 = 070342 8-1320 437-704 
DF 33 70366 8-1320 #37-7051 37-7052 37-7053 37-7054 37-7062 37-7063 37-7064 37-7065 
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SEQUENCE 182 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REFERENCES 


37-7066 37-7067 37-7072 37-7079 37-7080 37-7081 37-7085 37-7088 37-7106 
ey 4h Pe og AA's 37-7111 


DF 34 = 070366 8-132 37-7052 

DF 35 = 070366 8-1320 #37-7053 

DF 36 = 070366 8-1320 #37-7054 

DF 37 = 070342 8-1320 #37-7055 

DFS = 070273 8-1320 #37-7028 

DF 40 = 070342 8-1320 #37-7056 

DF41 = 070342 8-1320 #37-7057 

DF42 = 070342 8-1320 #37-7058 

DF43 = 070342 8-1320 #37-7059 

DF44 = 070342 8-1320 #37-7060 

DF4S = 070342 8-1320 437-7061 

DF 46 = 070366 8-1320 #37-7063 

DF47 = 070366 8-1320 #37-7064 

DF5 = 070273 8-1320 #37-7029 

DF50 = 070366 8-1320 #37-7065 

DF 51 = 070366 8-1320 #37-7066 

DFS2 = 070366 8-1320 #37-7067 

DF53 070462 8-1320 #37-7112 37-7113 37-7114 37-7115 37-7116 37-7117 37-7118 37-7119 
37-7120 37-7121 37-7122 37-7123 37-7124 

DF54 = 070462 8-1320 #37-7113 

DF55 = 070462 8-1320 #37-7114 

DF 56 = 070462 8-1320 #37-7115 

DF 57 = 070462 8-1320 437-7116 

DF6 = 070273 8-1320 #37-7030 

DF 60 = 070462 8-1320 #37-7117 

DF 61 = 070462 8-1320 #37-7118 

DF62 = 070462 8-1320 #37-7119 

-DF63 = 070462 8-1320 #37-7120 

DF 64 = 070462 8-1320 437-7121 

DF65 = 070462 8-1320 #37-7122 

DF 66 = 070462 8-1320 #37-7123 

DF 67 = 070462 8-1320 437-7124 

DF7 * = 070273 8-1320 437-7031 

DF 70 070514 8-1320 437-7125 37-7126 37-7127 37-7128 37-7129 37-7130 37-7131 37-7132 
37-7133 37-7134 37-7135 37-7136 37-7137 37-7138 37-7139 37-7140 37-7141 

DF 71 = 070514 8-1320 #37-7126 

DF72 = 070514 8-1320 437-7127 

DF 73 = 070514 8-1320 437-7128 

DF 74 = 070514 8-1320 437-7129 

DF 75 = 970514 8-1320 437-7130 

DF 76 = 070514 8-1320 437-7131 

DF77 = 070514 8-1320 #37-7132 

DH1 0664 36 8-1320 #36-6819 36-6822 36-6825 36-4824 36-6825 36-6826 36-6827 36-6828 


36 3 5 6 8 
36-6914 36-6915 36-6916 36-6917 36-6918 36-6919 36-6920 36-6921 36-6922 


CKF PBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 10 
SEQUENCE 183 

SYMBOL CROSS REFERENCE CREF O01 

SYMBOL VALUE REFERENCES 
36-6923 36-6924 36-6925 36-6926 36-6927 36-6928 36-6929 36-6930 36-6931 

~6932 36-6933 36-6934 36-6935 36-6936 36-6937 36-6938 36-7011 36-7012 

36-7013 36-7014 36-7015 36-7016 36-7017 36-7018 36-7019 36-7020 36-7021 

DH10 = 066436 8-132 -682 ' 

DH100 = 0664 8-1320 #36-6930 

DH101 = 066436 8-1320 #36-6931 

DH102 = 066436 8-1320 #36-6932 

DH103 = 066436 8-1320 #36-6933 

DH104 = 066436 8-1320 #36-6934 

DH105 = 066436 8-1320 #36-6935 

DH106 = 066436 8-1320 #36-6936 

DH107 = 066436 8-1320 #36-6937 

DH11 = 066436 8-1320 #36-6828 

DH11 = 066436 8-1320 #36-6938 

DH111 = 066436 8-1320 #36-6864 

DH112 = 066436 8-1320 #36-6865 

DH113 = 066436 8-1320 #36-6866 

DH114 = 0664 8-1320 #36-6867 : 

DH115 066777 8-1320 #36-6868 36-6870 36-6871 36-6872 36-6873 36-6874 36-6879 36-6880 
36-6881 36-688 36-6884 36-6886 36-6887 36-6888 36-6889 36-6890 36-6891 
36-6892 36-6897 36-6898 36-6899 36-6900 36-6901 36-6902 36-6904 36-6907 
36-6939 36-6940 36-6941 36-6942 36-6943 36-6944 36-6945 36-6946 36-6947 
36-6948 36-6950 36-6951 36-6952 36-6953 36-6954 36-6955 36-6956 36-7023 

DH116 == 066777 8-1320 #36-6870 

DH117 = = 066777 8-1320 #36-6871 

DH12 = 0664 8-1320 #36-6829 

DH120 = 066777 8-1320 #36-6872 

DH121 = 066777 8-1320 436-6873 

DH122 = 066777 8-1320 #36-6874 

DH123 = 066436 8-1320 #36-6875 

DH124 = 066436 8-1320 #36-6876 

DH125 = 066436 8-1320 #36-6877 

DH126 = 0664 8-1320 #36-6878 

DH127 == ~ 066777 8-1320 436-6879 

DH13 = 0664 8-1320 #36-6830 

DH130 = 066777 8-1320 #36-6880 

DH131 = 066777 8-1320 #36~6881 

DH132 = 0664 8-1320 #36-6882 

DH133 = 066777 8-1320 #36-6883 

DH134 = 066777 8-1320 #36-6884 

DH135 = 0664 8-1320 #36-6885 

DH136 4 = 066777 8-1320 #36-6886 

DH137 = =_- 066777 8-1320 436-6887 

DH14 = 0664 8-1320 #36-6831 

DH140 = 066777 8-1320 436-6888 

DH141 = 066777 8-1320 436-6889 

DH142 = 066777 8-1320 #36-6890 

DH143 == 066777 8-1320 #36-6891 

DH144 == 066777 8-1320 #36-6892 

DH145 == 066436 8-1320 436-6893 

DH146 = =_-(066436 8-1320 #36-6894 

DH147 = =_- 066436 8-1320 #36-6895 





ea ee ee Ta 
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SEQUENCE 184 

SYMBOL CROSS REFERENCE CREF  VO0O1 
SYMBOL VALUE REFERENCES 
DH15 = 0664 8-1320 #36-6832 
DH150 = = _ 0664 8-1320 436-6896 
DH151 = 066777 8-1320 #36-6897 
DH152 == 066777 8-1320 #36-6898 
DH153 = 066777 8-1320 #36-6899 
DH154 = 066777 8-1320 #36-6900 
DH155 = 066777 8-1 320 #36-6901 
DH156 = 066777 8-1320 #36-6902 
DH157 = 0664 8-1320 #36-6903 
DH16 = 0664 8-1320 #36-6833 
DH160 = 066777 8-1320 #36-6904 
DH161 = 0664 8-1320 436-6905 
DH162 == 0664 8-1320 #36-6906 
DH163 = 066777 8-1320 436-6907 
DH164 = 066436 8-1320 #36-6908 
DH165 = 066777 8-1320 #36-6939 
DH166 = 066777 8-1320 #36-6940 
DH167 == 066777 8-1320 #36-6941 
DH17 066567 8-1320 436-6834 
DH170 = 066777 8-1320 #36-6942 
DH171 = 066777 8-1320 #36-6945 
DH172 == 066777 8-1320 #36-6944 
DH173. = 066777 8-1320 #36-6945 
DH174 = 066777 8-1320 436-6946 
DH175 = = 066777 8-1320 436-6947 
DH176 === 066777 8-1320 #36-6948 
DH177 067076 8-1320 #36-6949 
DH2 066526 8-1320 #36-6821 36-7010 
DH20 = 0664 8-1320 #36-6835 
DH200 = 066777 8-1320 #36-6950 
DH201 = 066777 8-1320 #36-6951 
DH202 = 066777 8-1320 #36-6952 
DH203 = 066777 8-1320 #36-6953 

204 = 066777 8-1320 436-6954 
DH205 = 066777 8-1320 #36-6955 
DH206 = 066777 8-1320 #36-6956 
DH207 067177 8-1320 #36-6958 36-6962 36-6963 36-6964 36-6965 
DH21 8-1320 #36-6836 
DH210 067267 8-1320 #36-6960 36-6961 36-6966 36-6969 36-6971 36-6973 
DH211 = 067267 8-1320 #36-6961 
DH212 = 067177 8-1320 #36-6962 
DH213 = 067177 8-1320 436-6963 
DH214 = 067177 8-1320 #36-6964 
DH215 = 067177 8-1320 #36-6965 
DH216 = 067267 8-1320 #36-6966 
DH217 067330 8-1320 436-6967 
DH22 73 8-1320 #36-6838 
DH220 067137 8-1320 #36-6957 36-6970 36-6972 
DH221 = 067267 8-1320 #36-6969 
DH222 = 067137 8-1320 #36-6970 
DH223 = 067267 8-1320 #36-6971 
DH224 == 067137 8-1320 #36-6972 





(en + -- ee 
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SEQUENCE 185 
SYMBOL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES 
DH225 = 067267 8-1320 #36-6973 
DH226 067403 8-1320 #36-6974 | 36-6978 
DH227 067472 8-1320 #36-6976 36-6979 36-6980 
DH25 = 066436 8-1320 #36-6839 
DH230 = 067403 8-1320 #36-6978 
DH231 = 067472 8-1320 #36-6979 
DH232 = 067472 8-1320 #36-6980 
DH233 067561 8-1320 #36-6983 36-7001 36-7003 36-7004 36-7005 
DH2 067622 8-1320 #36-6985 36-6995 
DH235 067710 8-1320 #36-6988 
DH236 067750 8-1320 #36-6991 
DH237 == 067622 8-1320 #36-6995 
DH24 = 066436 8-1320 #36-6841 
DH240 070036 8-1320 436-6997 36-7002 
DH241 = 067561 8-1320 #36-7001 
DH242 == 070036 8-1320 #36-7002 
DH243 = = _-06756" 8-1320 #36-7003 
DH244 = 067561 8-1320 #36-7004 
DH245 = _-(067561 .8-1320 #36-7005 
DH246 = 8-1320 #36-6858 
DH247 070126 8-1320 #36-7006 
DH25 = 066436 8-1320 #36-6842 
DH250 070173 8-1320 #36-7007 36-7008 
DH251 = 070173 8-1320 #36-7008 
DH252 = 526 8-1320 #36-7010 
DH253 = 066436 8-1320 #36-7011 
DH254 = 066436 8~1320 #36-7012 
DH255 = 066436 8-1320 #36-7013 
DH256 = 066436 8-1320 #36-7014 
DH257 = 066436 8-1320 #36-7015 
DH26 = 066436 8-1320 #36-6843 
DH260 = 066436 8-1320 #36-7016 
DH261 = 36 8-1320 #36-7017 
DH262 == 066436 8-1320 #36-7018 
DH2635 = 36 8-1320 #36-7019 
DH264 = 066436 8-1320 #36-7020 
DH265 = 36 8-1320 #36-7021 
DH266 070233 8-1320 #36-7022 
DH267 == 777 8-1320 436-7023 
DH27 = 066436 8-1320 #36-6544 
DH3 = 066436 8-1320 #36-6822 
DH30 = 066436 8-1320 #36-6845 
DH31 = 066436 8-1320 #36-6846 
DH32 = 066436 8-1320 #36-6040 
DH33 = 066436 8-1320 #36-6547 
DH34 = 066436 8-1320 436-6848 
DH35 = 066436 8-1320 436-6849 
Dii36 = 066436 8-1320 #36-6850 
DH37 = 066436 8-1320 #36-6851 
DH4 = 066436 8-1320 #36-6823 
DH4O = 066436 8-1320 436-6852 
DH41 = 066436 8-1320 #36-6853 


Se 


| CKFPBB 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


| DH43.—= 

DH44 = 066436 
DH45 = 

DH46 = 066436 
DH47 = 066436 
DHS = 066436 
DHSO = 066436 
DHS1 = 066436 
DHS2 = 066436 
DHS3 = 066436 
DH54 = 0664 
DHSS = 066436 
DH56 = 066436 
DHS7 = 066436 
DH6 = 066436 
DH60 = 066436 
DH61 = 066436 
DH62 = 066436 
DH63 = 066436 
DH64 = 066436 
DH65 = 06643564 
DH66 = 066436 
DH67 = 066436 
DH7 = 066436 
CH70 = 066436 
DH71 = 066436 
DH72 = 066436 
DH73 = 066436 
DH74 = 066436 
DH75 = 066436 
DH76 = 066436 
DH77 = 066436 
DISPLA 001142 
DISPRE 174 
DIVDSU 016624 
DIVDT 017054 
DIVFSU 015704 
DIVFT 016120 
DSWR = 177570 
DT1 071024 
DT10 = 071024 
DT100 == 071264 
DT101 = 071264 
DT102. «= 071264 
DT103 = = 071264 
DT1046 = 071264 
DT105 == 071264 
DT106 = =_- 071264 
DT107 = = 071264 





REFERENCES 
8-1320 cd 


CREATED BY MACRO ON 28-MAR-81 AT eat 


32 36-6854 
8-1320 #36-6855 
8-1320 #36-6856 
8-1320 #36-6857 
8-1320 #36-6859 
8-1320 #36-6860 
8-1320 #36-6824 
8-1320 #36-6861 
8-1320 #36-6862 
8-1320 #36-6863 
8-1320 #36-6909 
8-1320 #36-6910 
8-1320 #36-6911 
8-1320 #36-6912 
8-1320 #36-6913 
8-1320 #36-6825 
8-1320 #36-6914 
8-1320 #36-6915 
8-1320 #36-6916 
8-1320 #36-6917 
8-1320 #36-6918 
8-1320 #36-6919 
8-1320 #36-6920 
8-1320 #36-6921 
8-1320 436-6826 
8-1320 #36-6922 
8-1320 #36-6923 
8-1320 #36-6924 
8-1320 #36-6925 
8-1320 #36-6926 
8-1320 #36-6927 
8-1320 #36-6928 
8-1320 #36-6929 

#7-1314 *8-132 

#6-1313 8-1327 
18-2945 18-2956 
19-3074 19-3083 
17-2699 17-2710 
17-2801 17-2812 
17-2889 17-2898 

#6-1301 7-1314 
8-1320 #38-7212 
38-7222 38-7223 
8-1320 #38-7220 
8-1320 #38-7280 
8-1320 #38-7281 
8-1320 #38-7282 
8-1320 #38-7283 
8-1320 438-7284 
8-1320 #38-7285 
8-1320 #38-7286 
8-1320 #38-7287 


PAGE 13 
QUENCE 186 
CREF O01 
*8-1327 33-6068 
18-2967 18-2978 
19-3089 19-3101 
17-2721 17-2733 
17-2824 17-2835 
#17-2929 
8-1327 
38-7215 38-7216 
38-7224 38-7225 


E 15 


33-6070 


18-2989 
#19-3119 
17-2744 
#17-2872 


38-7217 
38-7226 


18-3002 18-3014 #19-3055 
17-2755 17-2766 17-2778. 
38-7218 38-7220 


38-7219 


17-2790 


38-7221 


as 


r- ---- ++ Ce 


F 15 
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SEQUENCE 187 
SYMBOL CROSS REFERENCE CREF  vO01 
| SYMBOL VALUE REFERENCES 
| OT11 = 071024 8-1320 #38-7221 

DT110 = =_: 071264 8-1320 #38-7288 

DT111.-—s- = 071212 8-1320 #38-7289 

DT112. = 071212 8-1320 #38-7290 

DT113. = 071212 8-1320 #38-7291 

DT114 = = 071212 8-1320 #38-7292 

DT115 071352 8-1320 #38-7293 38-7296 38-7297 38-7298 38-7299 38-7300 
38-7307 38-7309 38-7310 38-7312 38-7313 38-7314 38-7315 
38-7318 38-7323 38-7324 38-7325 38-7326 38-7327 38-7328 

DT116 = =_:071352 R-1320 #38-7296 

DT117.—s =: 071352 8-1320 #38-7297 

D112 = 071024 8-1320 #38-7222 

21120 = 071352 8-1320 #38-7298 

DT121. = 071352 8-1320 #38-7299 

DT122. = 071352 8-1320 #38-7300 

DT123. = 071212 8-1320 #38-7301 

DT124 = 071212 8-1320 #38-7302 

01125 = 671212 8-1320 #38-7303 

DT126 = =: 071212 8-1320 #38-7304 

DT127.—- = 071352 8-1320 #38-7305 

DT13 = 071024 8-1320 #38-7223 

07130 3= =: 071352 8-1320 #38-7306 

D1131 = = 071352 8-1320 #38-7307 

DT132.—s = 071212 8-1320 #38-7308 

7133 == 071352 8-1320 #38-7309 

D1134 = 071352 8-1320 #38-7310 

D1135. = 071212 8-1320 #38-7311 

D1136 = = 071352 8-1320 #38-7312 

DT137,.— = 071352 8-1320 #38-7313 

DT14 = 071024 8-1320 #38-7224 

D1140 = = _~ 071352 8-1320 #38-7314 

DT141 = = 071352 88-1320 #38-7315 

D1142 = 071352 8-1320 #38-7316 

DT143 =: 071352 8-1320 438-7317 

D1144 = 071352 8-1320 #38-7318 

D1145 = 071212 8-1320 #38-7319 

DT1460=— = (071212 8-1320 #38-7320 

DT147. = O71212 8-1320 #38-7321 

D115 = 071024 8-1320 #38-7225 

DT150 = =: 071212 8-1320 #38-7322 

DT751 = = 071352 8-1320 #38-7323 

DT152. = - 071352 8-1320 #38-7324 

DT153.— =: 071352 8-1320 #38-7325 

D1154 = 071352 8-1320 #38-7326 

DT155. =: 071352 8-1320 #38-7327 

D1156 = =_:(071352 8-1320 #38-7328 

D1157, =: 071212 8-1320 #38-7329 

D116 = 071024 8-1320 #38-7226 

DT160 = 071352 8-1320 #38-7330 

DT161. == 071212 8-13.20 #38-7331 

DT162. = 071212 8-1 320 #38-7332 

DT163 == 071352 8-1320 #38-7333 


38-7305 
38-7316 
38-7330 


38-7306 
38-7317 
38-7335 
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PAGE 15 
QUENCE 188 
CREF 


SYMBOL CROSS REFERENCE vol 
MBOL VALUE REFERENCES 
= 071212 B-1320 #38-733 
071426 B=-1320 «38-7335. «38-7339 «= 3B=7340 «= -3B=7341 «— -38=7342 «387343 = 38=7344 «= 38-7345 
58-7546 38-7347 38-7349 38-7350 38-7351 38-7352 38-7353 38-7354 38-7355 
| D1166 = 071426 B-1320.  -#38-7339 
| DT167 = 071426 B=1320  #38-7340 
| DT17 071110 8-1320 #38-7227 
| DTI70. =: 071426 8=1320 «#38-7341 
DT171 = 071426 B=1320 #38 = 7342 
DT172. = 071426 B=1320 #38 -7343 
DT173.— =: 071426 8=1320  #38-7344 
DT174. = 071426 B=1320 38-7345 
01175. = 071426 8-1320  #38-7346 
DI176. = : 071426 B-1320 = #38-7347 
D1177 071514 B=1320 #38-7348 
DT2 071062 8=1320 = #38-7214 
DT20 071130 B=1320  #38-7228 
DT200 = 071426 8=1320 #38-7349 
DT201 = 071426 8-1320  #38-7350 
DT202. = 071426 B=1320 = #38-7351 
DT203 = -(071426 B=1320 —-#’38-7352 
DT = 071426 B=1320 = #38-7353 
DT205 - =_:071426 B=-1320  #38-7354 
DT206 = =: 071426 B=1320 #38735 
57207 071524 B-1320  #38-7356 38-7361 38-7368 38-7370 «= 38-7371 = 38+7372 «= 38=7373 «= 38-7374 
38-7375 38-738 , 
D121 071152 B-1320. #38722 
DT210 071576 8-1320 #38-7359 38-7379 
DT211 = 671524 8-1320  #38-736 
DT212 071620 B-1320  #38-7362 «38-7365. «38-7366 «= 38-7367 = «38-7376 «= «38-7377 ~=—s-_- 38-7378 
DT213. = (071620 B-1320  #38-736 
DI214. = 071620 8-1320  #38-7366 
DT215. = 071620 8-1320 438-7367 
DT216 = 071524 8-1320  #38-7368 
DT217 071702 B-1320  #38-7369 
D122 071174 B-1320  #38-7230 
DT220 = 071524 8-1320  #38-7370 
DT221 = 071524 B-1320 = -#’38-7371 
DT222 = 071524 8-1320  #38-7372 
DT228 = 071524 8-1320 #38-7373 
DI226 = 071524 8-1320 38-7374 
DT225. = 071524 8-1320 438-7375 
DT226 = =: 071620 B-1320 = #38-7376 
D122? = 071620 8-1320 #38-7377. 
D123 071212 8-1320  #38-7231 38-7233 «38-7234 «= 38-7235 «= «38-7236 «= 38-7237 «= 38-7238 «= 38-7239 
38-7240 88-7241 «38-7242 «= -3B=7243 38-7244 «= 38-7265 = 3B+7246 = 38-7247 = 38-7248 
38-7949 38-7250 38-7251 38-7252 38-7253 38-7254 38-7255 38-7289 38-7290 
38-7991 38-7292 38-7301 «=—s«38-7302 Ss 38-7303. «= 38-7304 «= - 38-7308 += 38-7311 «= s- 38-7319 
38-7320 38-7321 «= 3B-7322. 38-7329 «= «38-7331 «= 38-7332 «= 38-7334 = 38-7394 
pT = 071620 B-1320  #38-7378 
= 071576 B-1320  #38-7379 
= 071526 8-1320  #38-7380 
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CREATED BY 
— SYMBOL CROSS REFERENCE 


072040 
072052 
072052 
07205< 


Oo 
N 
m 
Nm 


So 

- 
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REFERENCES 
8=-1320 # 


32 38-7381 
8-1 320 #38-7384 
8-1320 #38-7385 
8-1320 #38-7386 
8-1320 #38-7387 
8-1320 #38-7234 
8-1320 #38-7388 
8-1320 #38-7389 
8-1320 #38-7390 
8-1320 #38-7391 
8-1320 438-7392 
8-1320 #38-7393 
8-1320 #38-7394 
8-1320 #38-7395 
8-1320 #38-7235 
8-1320 #38-7396 
8-1320 #38-7397 
8-1320 #38-7398 
8-1320 #38-7399 
38-7410 38-7411 
8-1320 438-7403 
8-1320 438-7404 
8-1320 438-7405 
8-1320 438-7406 
8-1320 #38-7236 
8-1320 #38-7407 
8-1320 #38-7408 
8-1320 #38-7409 
8-1320 #38-7410 
8-1320 438-7411 
8-1320 #38-7412 
8-1320 438-7413 
8-1320 438-7414 
8-1320 #38-7237 
8-1320 #38-7215 
8-1320 438-7238 
8-1320 #38-7239 
8-1320 438-7233 
8-1320 #38-7240 
8-1320 #38-7241 
8-1320 #38-7242 
8-1320 438-7243 
8-1320 438-7244 
8-1320 #38-7216 
8-1320 #38-7245 
8-1320 #38-7246 
8-1320 438-7247 
8-1320 #38-7248 
8-1320 #38-7249 
8-1320 #38-7250 
8-1320 438-7251 
8-1320 #38-7252 


H 15 


MACRO ON 28-MAR~-81 AT ~ PAGE 16 


SEQUENCE 189 
CREF 


vo1 
38-7389 38-7391 38-7392 38-7393 
38-7386 38-7387 38-7388 38-7390 
38-7397 
38-7413 
38-7403 38-7404 38-7405 38-7406 38-7407 38 -7408 
38-7412 


38-7409 
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SYMBOL VALUE 
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REFERENCES 
8-1320 


CREATED BY MACRO ON 28-MAR~81 AT ony 


#20-3366 


#35-6549 


I 15 


PAGE 17 
QUENCE 190 

CREF O01 
38-7260 38-7261 38-7262 38-7263 38-7264 
38-7269 38-7270 38-7271 38-7272 38-7273 
38-7278 38-7279 38-7280 38-7281 38-7282 
38-7287 38-7288 
*8-1327 


ge 


38-7265 
38-7274 
38-7283 


38-7266 
38-7275 
38-7284 


| CKF PBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 18 
| SEQUENCE 191 


SYMBOL CROSS REFERENCE CREF vOQ1 
hy VALUE REFERENCES 
054753 8-1320 #35-6552 
055062 8-1320 #35-6554 
055171 8-1320 435-6556 
040770 8-1320 #35-6318 
055300 8-1320 #35-6558 
044115 8-1320 #35-6390 35-6442 
044172 8-1320 #35-6391 35-6443 
044250 8-1320 #35-6392 
044326 8-1320 #35-6394 
044405 8-1320 #35-6396 
044463 8-1320 435-6397 
044542 8-1320 #35-6404 
041077 8-1320 #35-6320 
044700 8-1320 #35-6406 
045036 8-1320 #35-6408 
045173 8&~1320 #35-6410 
045330 8-1320 #35-6412 35-6464 
045406 8-1320 #35-6413 35-6465 
045465 8-1320 435-6414 
045543 8-1320 #35-6416 
045622 8-1320 #35-6418 
041206 8-1320 #35-6322 
045700 8-1320 #35-6419 
045757 8-1320 #35-6426 
046115 8-1320 #35-6428 
046253 8-1320 #35-6431 
046411 8-1320 #35-6433 
046546 8-1320  #35-6435 
046703 8-1320 #35-6438 
047040 8-1320 #35-6440 
041322 8-1320 #35-6324 
047126 8-1320 #35-6441 
= 044115 3-1320 #35-6442 
= 044172 8-1320 #35-6443 
047215 8-1320 435-6444 
047273 8-1320 #35-6446 
047352 8-1320 435-6454 
047517 8-1320 #35-6456 
7 8-1320 #35-6458 
041434 8-1320 #35-6326 
050030 8-1320 #35-6460 
050174 8-1320 #35-6462 
050262 8-1320 #35-6463 
= 04 8-1320 435-6464 
= 8-1320 435-6465 
050351 8-1320 435-6466 
050427 8-1320 435-6468 
050506 8-1320 #35-6476 
041546 8-1320 #35-6328 
050653 8-1320 435-6478 
051011 8-1320 #35-6481 


051156 8-1320 #35-6483 





“cre 


SYMBOL 
EM163 





CREATED BY MACRO ON 28-MAR=81 AT 14:30 
| SYMBOL CROSS REFERENCE 
VALUE 


REFERENCES 
8-1320 # 


132 35-6485 
8-1320 #35-6488 
8-1320 #35-6572 
8-1320 #35-6574 
8-1320 #35-6576 
8-1320 #35-6330 
8-1320 #35-6578 
8-1320 #35-6580 
8-1320 #35-6582 
8-1320 #35-6584 
8-1320 #35-6586 
8-1320 #35-6588 
8-1320 #35-6590 
8-1320 #35-6592 
8-1320 #35-6302 
8-1320 #35-6331 
8-1320 #35-6593 
8-1320 #35-6595 
8-1320 #35-6597 
8-1320 #35-6599 
8-1320 #35-6601 
8-1320 #35-6603 
8-1320 #35-6605 
8-1320 #35-6701 
8-1320 #35-633 
8-1320 #35-6702 
8-1320 #35-670 
8-1320 #35-6730 
8-1320 #35-6721 
8-1320 #35-6732 
8-1320 #35-6733 
8-1320 #35-6734 
8-1320 #35-6737 
8-1320 #35-6333 
8-1320 #35-6738 
8-1320 #35-6739 
8-1320 #35-6740 
8-1320 435-6741 
8-1320 #35-6742 
8-1320 435-6743 
8-1320 #35-6744 
8-1320 435-6745 
8-1320 435-6334 
8-1320 #35-6746 
8-1320 435-6747 
8-1320 #35-6748 
8-1320 #35-6778 
8-1320 #35-6779 
8-1320 #35-6780 
8-1320 #35-6781 
8-1320 #35-6782 
8-1320 #35-6339 


35-6748 


E 19 
QUENCE 192 
CREF 


K 15 


v01 


po 
CKF PBB CREATED BY MACRO ON 28-MAR-81 AT 14:50 PAGE 20 
SEQUENCE 193 

SYMBOL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES 
EM240 8-1320 #35-6783 
EM241 064332 8-1320 #35-6784 
EM242 064435 8-1320 #35-6785 
EM243 064471 8-1320 #35-6786 
EM244 064574 8-1320 #35-6787 
EM245 8-1320 #35-6789 
EM246 043525 8-1320 #35-6380 
EM247 064715 8-1320 #35-6792 
EM25 042240 8-1320 #35-6341 35-6345 
EM250 064751 8-1320 #35-6793 
EM25i 065003 8-1320 435-6794 
EM252 8-1320 #35-6796 
EM253 065127 8-1320 #35-6802 
EM254 065213 8-1320 #35-68053 
EM255 065300 8-1320 #35-6804 
EM256 065366 8-1320 #35-6805 
EM257 065455 8-1320 #35-6806 
EM26 042325 8-1320 #35-6343 
EM260 065543 8-1320 #35-6807 
EM261 065632 8-1320 #35-6808 
EM262 065722 8-1320 #35-6809 
EM263 013 8-1320 #35-6810 
EM264 066100 8-1320 #35-6811 
EM265 066165 8-1320 #35-6812 
EM266 066252 8-1320 435-6814 
EM267 8-1320 #35-6815 
EM27 = 042240 8-1320 #35-6345 
EMS 040132 8-1320 #35-6306 
EM30 042423 8-1320 #35-6346 
EM31 042475 8-1320 #35-6348 
EM32 042110 8-1320 #35-6335 
EM33 042542 &-1320 #35-6350 
EM34 042565 8-1320 #35-6351 
EM35 042617 8-1320 #35-6355 
EM36 042672 8-1320 #35-6357 
EM37 042740 8-1320 #35-6359 
EM4 040237 8-1320 #35-6308 
EM4O 042763 8-1320 #35-6363 
EM41 043015 8-1320 435-6364 
EM42 043070 8-1320 #35-6366 
EM45 043221 8-1320 #35-6369 
EM44 04 8-1320 #35-6372 
EM45 043420 8-1320 435-6374 
EM46 043473 8-1320 #35-6376 
EM47 043550 8-1320 #35-6381 
EMS 040344 8-1320 #35-6310 
EMSO 04 8-1320 435-6584 
EM5S1 043757 8-1320 #35-6586 
EMS2 044025 8-1320 #35-6388 
EM53 051655 8-1320 #35-6491 
EMS4 706 8-1320 #35-6492 


051 
EMSS 051623 8-1320 #35-6490 
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SEQUENCE 194 

SYMBOL CROSS REFERENCE CREF O01 

SYMBOL VALUE REFERENCES 

EMS6 051736 8-1320 #35-6499 

EMS7 052027 8-1320 #35-6501 

EM6 1 8-1320 #35-6312 

EM60 052117 8-1320 #35-6503 

EM61 052221 8-1320 #35-6505 

EM62 052415 8-1320 #35-6508 

EM63 052611 8-1320 #35-6511 

EM64 052722 8-1320 #35-6513 

EM65 053041 8-1320 #35-6515 

EM66 053154 8-1320 #35-6517 

EM67 053223 8-1320 #35-6519 

EM7 040556 8-1320 #35-6314 

EM70 8-1320 #35-6521 

EM71 053337 8-1320 #35-6522 

EM72 053367 8-1320 #35-6525 35-6524 

EM73 = 053367 8-1320 #35-6524 

EM74 053421 8-1320 #35-6531 

EM75 053530 8-1320 435-6533 

EM76 36 8-1320 #35-6535 

EM77 053711 8-1320 #35-6537 

ERM10 034314 33-6070 33-6070 #33-6070 

ERROR = 104000 #6-1301 9-1479 9-1480 9-1481 9-1482 9-1483 9-1484 9-1485 
59-1487 9-1488 9-1489 9-1490 9-1503 12-1787 12-1789 12-1791 
12-1797 12-1799 12-1813 12-1815 12-1817 2-1819 12-1821 12-1823 
12-1840 12-1842 12-1844 12-1846 12-1848 12-1850 12-1852 13-2116 
13-2127 13-2133 13-2138 13-2143 13-2148 13-215 13-2165 13-2174 
14-2252 14-2266 14-2279 14-2292 14-2306 14-232 14-2339 14-2356 
15-2390 15-2407 15-2424 15-2441 15-2507 15-2523 16-2646 16-2655 
16-2676 17-2706 17-2717 17-2729 17-2740 17-2751 17-2762 17-2773 


28-4 28-4674 28-4676 28-4690 28-4692 28-4706 28-4708 28-4722 
28-4738 28-4740 28-4754 28-4756 28-4857 28-4871 28-4877 29-4911 
29-4929 29-4931 29-4946 29-4948 29-4964 29-4983 29-4985 
29-5002 29-5016 29-5019 29-5033 29-5035 29-5051 29-5054 29-5071 
29-5089 29-5991 29-5107 29-5109 29-5123 29-5125 29-5250 
30-5290 30-5292 30-5309 30-5324 30-5326 30-5344 0-536 0-536 


3-5928 33-5930 33-5942 33-5944 33-6040 33-6070 
34-6220 34-6231 


_-- ——_ 


OO - — 


FPVECT 
GGDATG 


CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 22 
SEQUENCE 195 
CROSS REFERENCE CREF vO1 
VALUE REF ERENCES 
2 #6-1301 8-1327  *8-1327, *8- 1327 
33-5781 ~6068  *33-6068  +*33-6068 
036370 33-6070 #33-6098 
020624 21-3425 —-#21-3519 
020100 #21-3380 
020154 #21-3392 
020230 #21-3403 
020304 #21-3414 
37000 9-1438 9-1495 10-1617 10-1682 
16-2636 23-3734 «= 24-3985 = 25-4170 
= 000244 #6-1295. - *9=1384  *9-1438 = * 10-1580 
*16-2550 *16-2600 22-3659 = *24-3911 
011550 10-1586 10-1610 10-1621 10-1651 
12-1785 12-1787 = 1217892: 12-1791 
12-1815. 12-1817: 12-1819 12-1821 
12-1844 12-1846 12-1848 12-1850 
011670 12-1773 12-1787 Ss: 10-1789 :«12=1791 
12-1817 12-1819»: 12=1821 12-1823 
12-1848 12-1850 12-1852 #12-1896 
010046 10-1580  #12=1775 
010144 10-1592 #12-1789 =: 12=1795 
010656 10-1677 #12=1819 
010724 10-1692  #12-1821 
010772 10-1697 #12-1823 
011040 10-1704  #12-1825 
011106 10-1711 #12=1827 
011204 10-1723 #12=1842 
011252 10-1728 #12-1844 
011320 12-1745  #12-1846 
011 12-1760  #12-1848 
011434 12-1771 #12=1850 
010212 10-1597 #12-1791 
011502 12-1765 #12=1852 
010260 10-1612  #12-1793 
010326 10-1627 #121795 
010730 10-1638  #12-1797 
010376 10-1632  #12-1799 
010444 10-1645  #12-1801 
010542 10-1657 #12-1815 
010610 10-1662  #12-1817 
25706 28-4757  #28-4886 
024234 #28-4534 
25 #28-4680 
025054 #28-4696 
025124 #28-4712 
025174 #28-4728 
025244 #28-4744 
024304 #28-4550 
024354 #28-4566 
026424 #28-4582 
024474 #28-4598 
024544 #28-4614 


*13-1990 
«33-6068 


12-1750 


*13-1996 
*34-6262 


12-1779 
434-6203 
*10-1645 
#27-4409 


12-1840 


*13-2008 


12-1805 


12-1837 


12-1799 
12-1842 


*33-5775 


12-1831 
*10-1711 
12-1743 
12-1811 
12-1840 


12-1813 
12-1844 


* 33-5777 


16-2613 
*12-1737 


12-1754 © 


12-1813 
12-1842 


12-1815 
12-1846 


as 
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SEQUENCE 196 

SYMBOL CROSS REFERENCE CREF v01 

SYMBOL VALUE REFERENCES 

GGG7 024614 #28-4631 

GGG8 24664 #28-4648 

GGG9 024734 #28-4664 

GGP1 011560 12-1840 #12-1859 

GGP2 011570 10-1646 10-1670 10-1712 12-1738 12-1813 12-1815 12-1817 12-1819 12-1821 
12-1823 12-1825 12-1842 12-1844 12-1846 12-1848 12-1850 12-1852 #12-1863 

GGP3 011600 10-1648 10-1672 12-1813 12-1815 12-1817 12-1819 12-1821 12-1823 12-1825 
12-1840 #12-1867 

GGP4 011610 #12-1871 

GGPS 011620 10-1581 10-1583 10-1605 10-1607 12-1787 12-1787 12-1789 12-1789 12-1791 
12-1791 12-1793 12-1793 12-1797 12-1797 12-1799 12-1799 = #12=1875 

GGP6 011630 10-1588 10-1623 10-1653 10-1719 12-1787 12-1789 12-1791 12-1793 12-1797 
12-1799 12-1813 12-1815 12-1817 12-1840 12-1842 12-1844 #12-1879 

GGP7 011640 10-1688 12-1819 12-1821 12-1823 12-1825 #12-1884 

GGP8 011650 10-1714 12-1740 12-1842 12-1844 12-1846 12-1848 12-1850 12-1852 #12-1888 

GGP9 11660 12-1756 12-1846 12-1848 12-1850 12-1852 #12-1892 

GG1 756 #10-1576 

GG10 007252 10-1637 #10-1641 

GG11 00731 10-1644 #10-1649 

GG12 007332 #10-1655 10-1658 

GG13 7342 10-1656 #10-1658 

GG14 007366 10-1661 #10-1665 . 

GG15 007416 10-1668  #10-1673 

GG16 007434 10-1669 #10-1678 

GG17 007502 #10-1690 10-1693 

GG18 007512 10-1691 #10-1693 

GG19 007546 10-1703 #10-1707 

GG2 007014 10-1579 #10-1584 

GG20 7604 10-1710 #10-1715 

GGe21 007626 #10-1721 10-1724 

GG22 007636 10-1722 §=#10-1724 

GG23 007654 10-1727 = #12-1733 

GG24 007712 12-1736 = #121741 

GG25 00773 12-1737 12-1746 

GG26 007776 #12-1758 12-1761 

GG27 010006 12-1759 = #121761 

GG28 010042 12-1770 39 #12-1773 

GG3 7036 #10-1590 10-1593 

GG4 007046 10-1591 #10-1593 

GG5S 706 10-1596 #10-1600 

GG6 007122 10-1603 #10-1608 

GG7 007140 10-1604 #10-1613 

GG8 0072 #10-1625 10-162 

GG9 007216 10-1626 #10-1628 

GNS = seeene 6-1313 6-1313 8-1328 33-6066 33-6066 33-6082 33-6082 33-6082 33-6082 
33-6082 33-6082 33-6082 33-6082 33-6082 33-6082 33-6082 33-6082 33-6082 
33-6082 33-608 33-6082 33-6082 33-6082 33-6083 33-6083 33-6084 33-6084 

GTSWR = 104405 8-1328 #33-6082 

HHDATO 006602 9-1356 9-1362 9-1390 9-1414 9-1420 9-1444 9-1466 9-1479 9-1480 
ab ps 4 Pat 9-1483 9-1484 9-1485 9-1486 9-1487 9-1488 9-1489 

HHDONE 006752 9-1478 9-1479 9-1480 9-1481 9-1482 94-1483 9-1484 9-1485 9-1486 





16 


CKF PBB CREATED BY MACRO ON 28-MAR-81 AT 14:50 PAGE 24 
SEQUENCE 197 
SYMBOL CROSS REFERENCE CREF vO01 
SYMBOL VALUE REFERENCES 
99-1487 99-1488 9-1489 9-1490 9-1504 #9=1557 

HHERO 005622 9=1367 #9-1479 
HHE ROO 0057 9-1373 #9-1481 
HHER1 005670 9-1369 #9-1480 
HHE R10 006464 9-1477 #9-1490 
HHER2 006 99-1396 #9-1482 
HHER3 006052 9-1401 #9-1483 
HHERG 006120 99-1425 #9-1484 
HHERS 006166 99-1427 49-1485 
HHER6 006234 9-1432 #9-1486 
HHER7 006302 9-1450 #9-1487 
HHER8& 006350 9-1455 49-1488 
HHE RO 06416 99-1472 #9-1489 

030014 29-5126 #29-5263 
HHH1 025712 #29-4901 
HHH10 27012 #29-5059 
HHH1 1 027112 #29-5077 
HHH12 027212 #29-5095 
HHH13 027312 #29-5113 
HHH2 026012 #29-4917 
HHH 026112 #29-4935 
HHH4 026212 #29-4952 
HHHS 026312 #29-4970 
HHH6 026412 #29-4989 
HHH7 026512 #29-5006 
HHH8 2661 #29-5023 
HHMI 026712 #29-5039 
HHPO 006612 9-1351 9-1479 9-1480 9-1481 #9-1509 
HHP 1 006622 9-1353 9-1479 9-1480 9-1481 #9-1513 
HHP10 006732 9-1446 9-1487 9-1488 #9-1549 
HHP 11 006742 9-1468 9-1489 9-1490 #9-1553 
HHP2 006632 9-1358 9-1479 9-1480 9-1481 #9-1517 
HHP 3 006642 9-1363 #9-1521 
HHP4 006652 9-1392 99-1421 9-1482 9-1483 #9-1525 
HHP5 006662 Pat 9-1461 9-1463 9-1482 9-1483 9-1489 9-1489 9-1490 9-1490 

006672 9-1387 9-1482 9-1483 #9-1533 
HHP7 006702 9-1416 9-1484 9-1485 99-1486 #9-1537 

8 006712 9-1409 9-1439 9-1441 9-1484 9-1485 99-1486 9-1487 99-1487 99-1488 
9-1488 #9-1541 

006722 9-1411 99-1484 9-1485 9-1486 #9-1545 
HHTRAP 006532 9-13 #9-1491 
HHI 005032 #9-1347 
HH10 05244 9-1395 #9-1397 
HH11 005262 9-1400 #9-1404 
HH12 005312 9-1408 #9-1412 
HH13 005334 #9-1418 9-1428 
HH14 005354 #9-1423 9-1426 
HH15 5 9-1424 #9-1426 
HH16 005372 9-1419 #9-1428 
HH17 005410 9-1431 #9-1434 
HH18 005446 99-1437 #9-1442 
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CREATED BY MACRO ON 28-MAR=81 AT 14:50 


ROSS REFERENCE 
VALUE 
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PAGE 2 
SEQUENCE 198 
CREF vO1 
33-6074 
13-1959 13-1968 
13-2147 13-2153 
13-2122 13-2128 
13-2184 #13-2230 
#13-2186 
#13-2124 
13-2188 
#13-2136 
#13-2141 
13-2056 13-2061 
13-1925 13-1946 
13-2151 #13-2200 
13-2180 #13-2208 
13-2181 #13-2212 
13-2087 = #13-221 
13-2014 13-2039 
13-2152 413-2225 


16 


13-2069 
13-1953 


13-2125 


13-2031 
#13-2190 
13-2139 


13-2091 
13-2009 


13-2131 


13-2040 


135-2144 


13-2099 


13-2114 


#13=2221 


13-2066 
13-2149 


13-2186 
13-2119 


13-2096 
13-2155 


13-2187 
13-2124 


Cessna Weiner gaara 


CREATED BY MACRO ON 28-MAR~81 AT = 


| CkFPBB 
SYMBOL CROSS REFERENCE 
VALUE 


i 

SYMBOL L 
HxK15 012200 
HX16 012226 
HX165 01223 
HX17 012260 
Hx18 012316 
HXx19 012336 
HX2 011724 
HX20 012346 
HX21 012350 
HX22 012400 
HX23 012420 
HX24 012440 
HX25 012450 
HX26 012456 
HX27 012460 
HX28 012512 
HX29 012534 
HXx3 011740 
HX 30 012544 
4X31 012562 
HXx32 012612 
HX33 012634 
HX 34 012644 
HXx35 012662 
4X4 011760 
HXxS 012 
HX6 012010 
HX7 012016 
HxX8 012034 
HX9 12 
IBSAVE 033762 
I] IDON 021464 
1111 020630 
IllI2 020674 
1113 020740 
1114 021 
IOTVEC - = 00002 
JJJDON 022424 
JJJ1 021470 
JJJ2 021554 
JJI3 021640 
JIIG 021724 
KKKDON 23266 
KKK1 022430 
KKK3 022474 

| KKKS 022540 
KKKS 022604 

| LF = 00001 
LLLDON 024230 
iLLL1 023272 
LLL2 023356 


023442 


REFERENCES 
13-1980 # 


98 13-1985 
13-1989 #13-1992 
#13-1993 13-2159 
13-1998  #13-2001 
13=2005 #13-2010 
#13-2016 13-2019 
13-1912 =. #13-1913 
13-2017 #13=-2019 
#13-2022 
13=2025 #13-2029 
#13-2036 13-2048 
#13-2042 13-2045 
13-204 #13-2045 
13-2037 #13-2048 
#1 3-2052 
13-2060 #13-2062 
#13=2071 13-2074 
13-1915 #13-1917 
13-2072 #13-2074 
13-2078 #%3-208 
13-2090 #13-2092 
#13=-2101 13-2104 
13-2102 #13-2104 
13-2108 #13-2110 
#13-1923 13-1933 
#13-1928 13-1931 
13-1929 = 13-1931 
13-1926 #13-1933 
13-1936 9413-1939 
13-1947 #13-1951 
#33-6070 *33-6070 
22-359 #23-3768 
#22-3535 
#22-3551 
#22-3568 
#22-3584 
#6-1 501 *8-1327 
24-3852 424-4019 
#24-3785 
#24-3803 
#24-3820 
#24-3838 
25-4100 ##25-4266 
#25-4039 
#25-4055 
#25-4071 
#25-4087 
#6-1307 33-6074 
26-4351 427-4518 
#26-4282 
#26-4 300 
#26-4318 


13-2170 


33-6070 


*8-1327 


33-6074 


PAGE 26 
QUENCE 199 
CREF 


33-6070 


v01 


E 16 


33-6070 


33-6070 
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| 
| CKFPBB CREATED BY MACRO ON 28=MAR-81 AT 14:50 PAGE 27 
SEQUENCE 200 
| SYMBOL CROSS REFERENCE CREF vO 
| SYMBOL VALUE REFERENCES 
| LiLS 023526 826-4336 
| LOOP 005030 #8-1330 33-6066 
LPERR 104413 9-1347 9-1379 9-1404 9-14.34 
| 10-1707 —«-12=1733~Ss«*13=1906 =: 13-1939 
14-2245 14-2256 14~2269 14-2282 
| 14-2376 15-2394 15-2411 15-2428 
17-2720 17-2732 17-2743 17-2754 
17-2823 17-2834 18-2944 18-2955 
20-3135 20-3146 20-3157 =. 20-3168 
| 20-3236 20-3247 20-3258 20-3269 
| 22-3551 22-3568 22-3584 24-3785 
25-4071 25-4087 26-4282 26-4300 
28-4582 28-4598 28-4614 28-4631 
28-4728 28-4744 29-4901 29-4917 
29-5023 29-5039 29-5059 29-5077 
30-5331 30-5349 31-5510. 31-5529 
33-583 33-5848 33-5862 33-5878 
MMMDON 030742 30-5363 ©. # 30-5494 
wo 1 030020 #30-5279 
MMM2 030072 #30-5296 
MMM 3 030144 #30-5313 
Mee, 030216 #30-5331 
Mem 5 030270 #30-5349 
267 #6-617 8-1318 
MODDDO 031750 31-5637 31-5650 31-5657 -#32-5718 
MODDD1 031760 31-5639 31-5651 31-5665 32-5689 
MODDOV 031362 31-5511 31-5530 31-5549 31-5568 
MODDSU 027416 39-4902 29-4918 29-4936 29-4953 
9-5060 29-5078 29-5096 29-5114 
MODDTO 027774 29-5179 = 29-5192 29-5197 = 295220 
MODDT1 030004 29-5181 29-5193 29-5205 29-5237 
MODFDO 030722 30-5418 30-5431 20-5438  #30-5490 
MODF D1 030732 30-5420 30-5432 30-5444 #30-5492 
MODFOV 030346 30-5280 30-5297 30-5314 30-5332 
MODFSU 025320 28-4535 28-4551 28-4567 28-4583 
28-4681 28-4697 28-4713 28-4729 
MODFTO 025656 28-4811 28-4824 28-4829  #28-4880 
MODF 17 025666 28-481 28-482 28-4835  #28-4882 
MODP1 025676 28-4798  #28-4884 29-5166 30-5404 
MSA1 37144 #34-627 38-7400 
MSA2 037162 #34-6274 38-7400 
MSA3 037205 #34-6275 38-7401 
MSAG 037217 #34-6276 38-7401 
MSAS 037235 #34-6277 = 38-7402 
MSA6 037250 #34-6278 38-7402 : 
MS1 037342 #34-6282 38-7213 38-7231 38-7257 
MS10 037541 #34-6289 38-7259 38-7338 
MS11 037563 #34-6290 38-7258 38-7337 
MS12 037607 #34-6291 38-7258 38-7337 
MS2 037360 #34-6283 38-7213 38-723) 38-7257 
MS3 037400 #34-6284 38-7214 
MS37 037632 #34-6292 38-7382 


16 


9-1457 


33-5891 


#32-5720 
#31-5618 


#29-5261 


30-5350 
28-4599 
28-4745 


31-5623 


38-7294 


38-7294 


29-4990 


#30-5399 
28-4615 
428-4795 


38-7336 


38-7336 


10-1600 


33-5920 


29-5007 


28-4632 


10-1641 


33-5934 


29-5024 


28-4649 


10-1665 
13-2083 


33-5818 
#33-6084 


29-5040 


28-4665 


R6 
R7 
SAVREG 


16 


CREATED BY MACRO ON 28-MAR-81 AT 14:50 PAGE 28 
SEQUENCE 201 
CROSS REFERENCE CREF  vO01 
VALUE REFERENCES 
037427 #34-6285 B-7214 
037650 #34-6293 38-7382 
037704 #34-6295 38-7356 «= 38-7363 «= 38-7383 
37 #36-6294 
037730 #36-6296 «38-7357 «=: 38-7363 
037746 #34-6297 38-7357 = 38-7364 
037763 #34-6298 38-7358 + = 38-7364 
037455 #34-6286 38-7232 «= 38-7295 
037477 #34-6287 38-7232 «= 38-7295 
037515 #36-6288 38-7259 38-7338 
020364 31-3381 21-3393. 21-3404 «= 21-3415 421-3453 
020614 51-3472 21-3481 21-3487 21-3499 21-3517 
017650 50-3136 30-3147 20-3158 = 20-3169 = 20-3180 = 20-3192 20-3204 += 20-3215 
20-3237 —- 20=324 20-3259 20-3270 + #20- 3307 
0064 20-332 20-3333 #20-3364 
031770 31-5583 #32-5722 
030746 #31-551 
031050 #31-5529 
031152 #31-5548 
031254 #31-5567 
022414 34-3906 24-3922 24-3927 24-3953 24-3993 #24-4017 
024220 57-4404 27-4429 «27-4434 27-4474 © 27-4507 = #274516 
021454 52-3654 22-3670 22-3675. 23-3702 «= 23-3742 = #23- 3766 
023256 35-4152 25-4177 25-4182 © 25-4222 «= 25-4255 #254264 
022014 34-3786 24-3804 24-3821 = 24-3839 © 24-3892 
023616 26-4283 26-4301 26-4319 26-4337 = 27-4390 
021054 32-3536 22-3552. 22-3569 = 22-3585 —-#22- 3640 
022654 35-4040 25-4056 25-4072 75-4088 425-4138 
= 177772 #6-1301 
= 000240 #6-1301 
037270 33-6087  #34-6279 
= 000002 #6-618 8-1328 
= 000000 #6-1301 
= 000040 #6-1301 
= 000100 #6-1301 
= 000140 #6-1301 
= 000200 #6-1301 
= 000240 #6-1301 
= 000300 #6-1301 
= 00034 #6-1301 
= 177776 #6-1301 6-1301 
= 177776 #6-1301 «33-5990 
= 2 #6-1301 —*B-1327, #81327 —-* 33-6087 —-*33-6087 = 33-6087 = «33-6087 = * 33-6087 
= 104407 #33-6082 
= 104411 #33-6082 
= 000010 #6-1301 — *8-1327 8-1327. 8-327 
= 104412 9-1557 12-1896 13-2230 «= 15-2530 =: 16-2684 ~=—--17=2931 19-3121. 20-3366 
23-3768 24-4019 25-4266 = 27-4518 = 28-4886 «= 29-5263 = 30-5494 = 52-5722 
#33-6083 34-6210 34-6221 34-6232 
=% #6-1301 — *B-1327, *B-1327 B-1327 
=%000007 #6-1301 
= 104410 #33-6082 


20-3226 


*33-6087 


21-3519 
33-6058 


"Seen, " 








CKF PBB 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 





nuonhnnhnonnn kann nn nn nen 


CREATED BY MACRO ON 28-MAR-81 AT eal 


037337 
0601100 


#6-1301 


34-6273 


36-6998 
*8-1327 
33-6144 


PAGE 29 
EQUENCE a 
CRE 

10-1573 13-1904 
24-3782 25-4036 
34-6265 

33-6087 
*8-1327 8-1327 
33-6068 33-6068 
33-6080 33-6087 
8-1328 33-6080 
34-6273 34-6274 
34-6280 34-6282 
34-6287 34-6288 
36-6821 36-6821 
36-6837 36-6838 
36-6957 36-6957 
36-6967 36-6968 
36-6977 36-6977 
36-6988 36-6989 
36-6999 36-7006 
*8-1327 

33-6149 33-6176 


v01 


14-2242 
26-4279 


*8-1327 


33-6080 


34-6275 


36-7006 


#33-6192 


16-2542 
28-4531 


*8-1327 
33-6070 
34-6254 


34-6275 


36-7006 


17-2695 
29-4898 


8-1328 
33-6070 


34-6276 


36-7007 


18-2941 
30-5276 


33-5770 
33-6070 


34-6277 


36-7007 


20-3132 
31-5507 


33-6066 
33-6070 


one amet ee we ~ 


34-6277 


36-7022 


CKF PBB CREATED BY MACRO ON 28=MAR-87 AT 14:50 PAGE 30 
SEQUENCE 203 

SYMBOL CROSS REFERENCE CREF vO01 

SYMBOL VALUE REFERENCES 

TRAPVE = 000034 #6-1301 *8-1327 *8-1327 

TRTIVEC = Q00014 #6-1301 

TST} 005030 #9-1 343 

TST10 17066 #20=3132 

TST11 020076 #21=-3377 

TST12 020626 #22-3532 

TST13 021466 #24-3782 

TST14 022426 #25-4036 

TST15 023270 #26-4279 

TST16 024232 #28-4531 

TST17 025710 #29-4898 

TST2 006754 #10-1573 

TST20 030016 #30-5276 

TST21 030744 #31-5507 

TST22 031772 #33-5766 

TST23 033154 #33-6062 

TST3 011672 #1 3-1904 

TST4 013412 #14=-2242 

TST5 014420 #16-2542 

TST6 015122 #17-2695 

TST7 016132 #18-2941 

TYPE = 104401 8-1328 33-5788 33-6066 33-6066 33-6066 33-6070 33-6070 33-6074 33-6076 

33-6080 33-6080 33-6080 33-6080 33-6080 33-6080 433-6082 33-6087 33-6098 
33-6122 33-6124 33-6127 33-6129 33-6163 33-6169 33-6180 33-6185 33-6195 

TYPOC = 104402 33-6080 433-6082 33-6107 33-6139 33-6194 

TYPON = 104404 #33-6082 

TYPOS = 104403 33-6066 33-6066 #33-6082 33-6156 

$SAPTHD 004332 8-1324 #8-1324 

SASTAT = *eeeee 33-6078 33-6078 

$ATYC 035230 33-6078  #33-6078 

$ATY1 035204 #33-6078 

SATY3 035212 33-6074 433-6078 

SATYS 035222 33-6070 #33-6078 

$AUTOB 001134 #7-1314 *8-1328 33-6080 33-6080 33-6080 

$BASE 001372 #7-1314 

$BDADR 001122 #7-1314 

$BDDAT 001126 #7-1314 

$BELL 001306 #7-1314 33-6070 33-6070 33-6070 

$CDw1 001376 #7-1314 

$CDW2 001400 #7-1314 

$SCHARC 034752 *33-6074 *33-6074 © 33-6074 *33-6074 433-6074 

$SCKSWR 035452 #33-6080 33-6082 33-6082 

$CLR.T 033356 33-6066 433-6066 

SCMTAG 001100 #7-1314 8-1327 8-1327 8-1327 8-1327 8-1327 8-1327 8-1327 

$CM1 = #7-1314 7-1314 7-1314 #7-1314 77-1314 7-1314 #7-1314 77-1314 7-1314 
#7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
#7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
47-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
#7-1314 77-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
#7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
#7~-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 

$CM2 = 000050 47-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 47-1314 7-1314 7=1314 


J 16 
CKF PBB 


CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 31 
SEQUENCE 204 
SYMBOL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES 
#7-1314 77-1314 7-1314 47-1314 77-1314 7-1314 47-1314 7-1314 71314 
#7-1314 7-1314 7-1314 47-1314 77-1314 7-1314 47-1314 77-1314 7-1314 
#7~-1314 71314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
#7-1314 77-1314 7-1314 #7-1314 27-1314 7-1314 47-1314 77-1314 7-1314 
#7-1314 77-1314 77-1314 47-1314 7-1314 7-1314 47-1314 77-1314 77-1314 
#7-1314 71314 7-1314 #7-1314 77-1314 7-1314 47-1314 
$cm3 = 000024 #7-1314 77-1314 ?=1314 
SCMG = 000024 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 
#7-1314 7=-1314 7-1314 47-1314 7-1314 77-1314 #7~-1314 77-1314 7-1314 
#7-1314 7-1314 7-1314 #7-1314 7-1314 7-1314 #7-1314 77-1314 77-1314 
#7-1314 71314 7-1314 47-1314 7-1314 7-1314 47-1314 7-1314 7-1314 
#7-1314 7-1314 7-1314 #7-1314 77-1314 7-1314 #7-1314 7-1314 7-1314 
#7-1314 7-1314 7-1314 #7-1314 7-1314 77-1314 47-1314 7-1314 7-1314 
#7-1314 7-1314 7-1314 47-1314 77-1314 7-1314 47-1314 
SCNTLG 036071 33-6080 #33-6080 
SCNTLU 036064 33-6080 #33-6080 
$c 001344 #7-1314 
SCRLF 001313 #7-1314 33-6066 33-6070 33-6070 33-6070 33-6074 33-6074 33-6074 33-6080 
33-6098 33-6124 33-6129 33-6185 38-7213 38-7213 38-7214 38-7214 38-7231 
38-7231 38-7232 38-7232 38-7257 38-7257 38-7258 38-7258 38-7259 38-7259 
38-7294 38-7294 38-7295 38-7295 38-7336 38-7336 38-7337 38-7337 38-7338 
38-7338 38-7356 38-7356 38-7357 38-7357 38-7357 38-7357 38-7358 38-7558 
38-7363 38-7363 38-7363 38-7363 38-7364 38-7364 38-7364 38-7364 38-7381 
38-7382 38-7383 38-7400 38-7400 38-7401 38-7401 38-7402 38-7402 
001402 #7-1314 
$DDw1 001404 #7-1314 
$DDW10 001426 #7~-1314 
$DDW11 001430 #7-1314 
$DDW12 001432 #7-1314 
$DDw13 001434 #7-1314 
$DDW14 001436 #7-1314 
$DDW15 001440 #7-1314 
$DDW2 001406 #7-1314 
$DDW3 001410 #7-1314 
$DDW4 001412 #7-1314 
$DDw5 001414 #7-1314 
$DDW6 001416 #7-1314 
$DDW7 001420 #7-1314 
$DDW8 001422 #7-1314 
Dw9 001424 #7-1314 
SDEVCT 001326 #7-1314 
SDE VM 001374 #7-1314 
$SDOAGN 033376 33-6066 33-6066 33-6066 #33-6066 
SENDAD 33 8-1323 8-1328 #33-6066 33-6070 
SENDCT 033210 8-1327 #33-6066 
SENULL 033442 #33-606 
SENV 001336 #7-1314 8-1328 33-6070 33-6074 33-6078 33-6078 
SENVM 001337 47-1314 8-132 33-5768 33-6074 33-6074 33-6078 
$EOP 033154 #33-6066 34-6211 34-6222 34-6233 
SEOPCT 033202 *8-1327 #33-6066 33-6066 i 
SERFLG 001103 yasih* ees, * 33-6068 33-6068 33-6068 *33-6068 33-6068 33-6068 *33-6070 


CROSS REFERENCE 
VAL 





REFERENCES 


#7-1314 


#8-1 343 
12-1904 


CREATED BY MACRO ON 28-MAR~81 AT me 


*33-6070 


33-6119 
33-6066 
*8-1327 


33-6074 


33-6082 
6-1292 


* 33-6068 


*8-1327 
*8-1327 


8-1324 


33-6078 
3 
#33-6080 


33-6068 


3 
#13-1904 


33-6068 
«33-6070 


* 33-6066 
* 33-6068 


* 33-6114 


33-6074 


33-6082 
6-1292 


33-6068 
#33-6087 
33-6070 


«33-6068 
33-6068 


8-1324 


«33-6078 
33-6078 
* 33-6078 


33-6068 

33-6074 
#9-1343 

13-1904 


QUENCE 205 
CREF V 


PAGE 32 
«33-6068 
33-6070 


* 33-6070 
33-6070 


*33-6078 
33-6074 


«33-6068 


33-6080 
33-6070 
33-6074 


* 33-6068 
* 33-6068 


8-1327 


#33-6078 


33-6078 


3 
#13=2242 


01 


K 16 


33-6068 
33-6070 


33-6070 
33-6070 


#33-6078 


33-6068 


33-6070 
33-6074 


33-6068 
33-6068 


8-1328 


*33-6078 


49-1573 
13-2242 


33-6048 
* 33-6070 


33-6070 
33-6070 


33-6068 


33-6070 


33-6068 
33-6068 


33-6068 


9-1573 
#14=2242 


33-6070 


33-6070 


33-6103 


33-6068 
33-6070 


33-6070 


#10-1573 
14-2242 


33-6070 


* 34-6242 


33-6074 


10-1573 
#15=2542 


35-¢€101 


#12-1904 
15-2542 


—————_-- - - ------—-- 





16 
CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 33 
SEQUENCE 206 
CROSS REFERENCE CREF v01 
VALUE REFERENCES 
#16-2542 6-2542 #16-2695 16-2695 17-2695 17-2695 17-2941 17-2941 #18=2941 
18-2941 #19=3132 19-3132  #20-3132 20-3132 #20-3377 20-3377 3=6#21- 3377 21-3377 
#21-3532 21-353 #22-3532 22-353 423-3782 3-378 424-3782 24-378 #24-4036 
46-4036 #25-4036 25-403 #25-4279 25-42 #26-4279 26-4279 = #274531 27-4531 
#28-4531 28-4531 #28-4898 28-4898 #29-4898 29-489 #29-5276 29-5276 430-5276 
30-527 #30-5507 30-550 #31-5507 31-5507 #32-5766 32-5766 #33-5766 33-5766 
035200 *33-6076 *33-6076 433-6076 : 
035202 *33-6076 *33-6076 33-6076 *33-6076 *33-6076 #33-6076 
033742 33-6068 33-6068 33-6068 33-6068 433-6068 
001324 We ines *8-1327 *33-6066 *33-6066 33-6066 33-6066 33-6066 33-6068 33-6068 
004340 #8-1324 
036344 #33-6087 
036204 -1327 433-6087 33-6087 
036340 #33-6087 
036256 -608 #33-6087 
001312 #7-1314 33-6070 33-6070 33-6074 33-6074 33-6080 
035734 #33-6080 33-6082 33-6082 
= kekeee 33-6082 
= k&eeweee 33-6082 
= k&eeeee 33-6082 
= 000001 #33-6080 33-6080 
00116 #7-1314 
001162 #7-1314 *33-6070 *33-6070 33-6070 
1164 #7-1314 
001202 #7-1314 
001204 47-1314 
001206 #7-1314 
001210 #7-1314 
001212 #7-1314 
001214 #7-1314 
001216 #7-1314 
001220 #7-1314 
11 #7-1314 : 
001222 #7-1314 
001224 #7-1314 
001226 #7-1314 
001230 #7-1314 
001170 #7-1314 
001172 #7-1314 
001174 #7-1314 
001176 #7-1314 
001200 47-1314 
034354 #33-6072 33-6082 
033436 #33-6066 
033432 8-1327 *8-1327 *8=-1327 33-6066 433-6066 
= wekekne 33-6082 
034316 #33-6072 33-6082 33-6082 
036366 * 33-6087 33-6087 *33-6087 *33-6087 #33-6087 5 
033446 8-1327 #33-6068 le 
= 000137 #6-1311 6-1311 #6-1311 6-1311 #6-1311 6-1311 #6-1311 6-1311 #6-1311 
67-1311 #6-1311 6-1311 #6-1311 8-1327 8-1527 8-1327 8-1327 8-1327 


Soetie os SATE eo Uae 


CKF PBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAGE 34 
SEQUENCE 207 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REFERENCES : ; 
| ~1327..8=1327. «$1327. B$1327. «$1327, B=1327, B=1327, 88-1328 = 8= 1328 
8-1328 33-6066 33-6066 33-6068 33-6070 33-6070 33-6070 33-6070 33-6080 
33-6080 33-6087 
$STUP = 177777 #6-1311  — #6=1311 6-1311 - #6=1311 #6-1311 6-1311 #6=1311 «= #6=1311 6-1311 
#6-1311_-#6-1311 6-1311  #6=1311 #6=1311 6-1311 9 #6=1311  #6=1311 6-1311 
$SVLAD 033706 33-6068  #33-6068 
$SVPC = 004332 #8-1323 =1323 
$SwR = _:177400 6-1292  #6-1292 —-#6-1296 71314 7=1314 7=1314 8-1327,  8-1327_ 88-1327 
B-1327. 81327, 91343 10-1573 13-1904 14-2242 «= 16-2542»: 17=2695 = 18-294 
20-3132 21-3877. 22-3532 24-3782 © 25-4036 ~=— 26-4279 = 28-4531 29-4898 =: 30-5276 
31-5507 33-5766 33-6066 ~6066 33-6066 = 33-6066 ©: 33-6066 + = 33-6068 - 
33-6068 33-6068 33-6068 = 33-6068 ~«=—- 333-6068 + = 33-6068 + = 333-6068 9~=—_- 333-6068 3-606 
3-6068 33-606 33-6068 33-6068 33-6068 33-6068 33-6068 33-6068 33-6068 
33-6070 33-6070 33-6070 33-6070 += 33-6070 ~=s_ 333-6070 =: 33-6070 §=_- 33-6070 =: 33-6070 
33-6070 33-6070 33-6087 
$SWREG 001340 #7=1314 8-1327 
$SWRMK = 000000 33-6068 33-6068 33-6068 33-6068 33-6068 33-6068 33-6068 33-6068 33-6068 
$SWRMS = 000200 #6-1297 
$TAB 037335 33-6180 434-6280 38-7212 4-38-7212. 38-7212 «= 38-7214 += 38-7227 = 38-7227 «= _-38-7228 
3B-7228 38-7228 «= 38-7229 «= 38-7229 ~=—-- 38-7229 «= 38-7230 «= 38-7230» 38-7231 = 38-7231 
38-7231 38-7256 «38-7256 «= 38-7256 «= 38-7293 = 38-7293 «= 38-7293 = 38-7335 = 38-7335 
38-7356 38-7359 38-7359 «38-7360 «= 38-7362 «= «38-7362 «= -38-7362 «= 38-7369 = «38-7369 
38-7381 38-7384 38-7384 38-7385 38-7395 38-7395 38-7396 38-7398 38-7399 
38-7399 38-7399 
$TBIT 033440 *8-1327  *33-6066 «33-6066 ©=— 33-6066 «= #33-6066 += * 33-6087 
$TERM = 000030 #33-6085 
$TESIN 001322 #7-1314 — *33-6068 
$TIMES 001302 #7-1314 -*B-1327 33-6066 * 33-6068 + = 33-6068 += * 33-6048 += = 33-6068 §9=—_- 33-6068 
$TKB 001146 W7-1314 53-6074 33-6074 33-6074 33-6074 33-6080 33-6080 33-6080 33-6080 
$TKS 001144 #7=1314 33-6074 33-6074 33-6074 33-6074 + = 33-6080 = 33-6080 += 33-6080 += 33-6080 
33-6080 33-6080 33-6080 
sT™MPO = 001232 #7-1314  *33-6099 -*33-6100 «38-7212, «38-7214 «= 38-7227 «= «38-7228 §=—_ 38-7229 §=—s_- 38-7230 
38-7231 38-7256 38-7293 «= 38-7335 «= s-38-7348 + «= 38-7356 = 38-7359 «= 38-7362 «= 38-7369 
38-7381 38-7384 38-7385 38-7395 38-7396 38-7398 38-7399 
$TMP1 001234 #7-1314 *33-6101 38-7212 38-7214 «= 38-7227 «= - 38-7228 «= 38-7229 «== 38-7230 =: 38-7231 
38-7256 38-7293 «38-7335 —s- 38-7348 «= 38-7356 «= 338-7359 «= 338-7362 «38-7369 «= «38-7381 
38-7384 38-7385 38-7395 38-7396 38-7398 38-7399 
$TMP10 001252 #7-1314. -*9-1479 —#9-1480 -— *9-1481 *9-1482, #9-1483. —*9-1484 = *9-1485_ *9- 1486 
#9-1487 -*9=1488 89-1489. #9-1490,*12-1789.-#12-1791*12-1793*12-1797 = * 12-1799 
#12-1815 #12=1817*12=1819#12-1821#12-1823 #12-1825 12-1842 = *12-1844 — *12-1846 
#13-1848 *12-1850 #12-1852.*16-2675 = #17-2900 = *19-3085 = * 20-3335 = *21-3483  *22-3653 
#24-3905 #254151 #27=4403 28-4825 829-5193 30-5432 «31-5651 33-6017 = 38-7231 
38-7259 38-7293 38-7338 38-7362 38-7399 
STMP11 001254 #7-1316. 89-1479 89-1480 *#9-1481*9-1482*9- 1483. *9- 1484 *9-1485_ *9- 1486 
29-1487 #91488 #91489. 89-1490, # 12-1789 #12-1791 #121793 *12-1797— * 12-1799 
#12-1815 #12=1817.#12=1819 812-1821 *12-1823 —*#12-1825 *12-1842 *12-1844 9 * 12-1846 
£15=1848 #12=1850 #12=1852#22=3673 #233744 © #24-3925 — #24-3995 —*25-4180 25-4258 
#274432 #274510 #284826 © * 28-4875 29-5195 29-5254 # 30-5433 = 30-5478 = * 331-5652 
#32-5706 *33-6012 38-7256 «= 38-7293 38-7335 «= 38-7362 «=: 38-7400 
$™MP12 001256 #7-1314  #2B=4827 #284876 = -#29-5194 —#29-5255 = # 30-5434 # 30-5479 = * 31-5653 = * 32-5707 





16 


| CKFPBB CREATED BY MACRO ON 28-MAR=81 AT 14: ‘30, an A “508. 
SYMBOL CROSS REFERENCE CRE v01 
SYMBOL VALUE REFERENCES 
* 33-6018 38-7256 38-7335 38-7400 
$STMP13 001260 #7-1314 30-5435 *30-5484 31-5654 32-5712 38-7335 
$STMP14 001262 #7-1314 *30=5436 = 30-5485 = 31-5655 = # 32-5713 
$TMP15 001264 #7-1314 
STMP16 001266 #7-1314 
$TMP17 001270 #7-1314 
$STMP2 001236 #7-1314 *9-1350 «9-1 383 *9-1408 *9=1437 *9=1460 9-1491 #9-1496 *#10-1579 
*10-1603 10-1613 *10-1618 *10-1644 *10-1668 10-1678  *10-1683 *10-1710 *12-1736 
12-1746 = ®12=1751 12-1775 12-1801 12-1827 #131912. #13-1947 Ss #13-1989 = *1 3-200 
*13=2025 *13=2060 *13-2090 *13-2163 = *15=2475 = *16=2551 = * 16-2574 = * 16-2596 )=— * 16-2631 
16-2634 -®17=2879 -—-*19=3064 = *20-3314 = 21-3462) 9 -*22=3658 = 23-3712 )3=— *23-3737 = 24-3910 
*24=3963 = #24-3988 = 25-4156 = 25-4232) 27-4408 = 27-4484 = * 28-4802 = *29-5170 39 * 350-5408 
*31-5627 =. * 33-5988 = * 333-6035 «= 34-6203 = * 34-6218 = * 34-6229 38-7212 38-7214 38-7227 
38-7228 38-7229 38-7230 38-7231 38-7256 38-7293 38-7335 38-7356 38-7359 
38-7362 38-7369 . 38-7381 38-7384 38-7385 38-7395 38-7396 38-7398 38-7399 
$STMP20 001272 #7-1314 
$TMP21 001274 #7-1314 
$TMP22 001276 #7-1314 
$TMP23 001300 #7-1314 
$STMP3 001240 #7-1314 *9-1479 *9-1480 *9=1481 *9=1482 #9-1483 #9-1484 #9-1485 *9=1486 
*9-1487 *9-1488 *9=1489 *9-1490 *9-1500 *#12=1787 = *12=1789 = #12=1791 ®12=1793 
#12=1797 12-1799 #12=1813—#12-1815 #121817) #12-1819 = * 12-1821) *12-1823 Ss * 12-1825 
*12=1840 *12-1842 *12-1844 *12-1846 *12-1848 *12-1850 *12-1852 *13=2115 *13-2120 
#13=2136 = *#13=2141*13=2173) #15=2489 = #15=2521 Ss *16-2641 = * 16-2660 39s * 16-2671 * 17-2893 
*19=3078 20-3328 21-3476 *22-3648 +*24-3900 *25-4146 *27-4398 *28-4817 +*29-518 
#30-5424 31-5643 +*33-6009  *34-6206 38-7213 38-7214 38-7229 38-7231 38-7257 
38-7294 38-7336 38-7356 38-7359 38-7363 38-7369 38-7384 38-7395 38-7402 
STMPG 001242 #7-1314 *9=1479 *9-1480 *9-1481 *9=1482 #9=1483 *9=1484 #9=1485 #9-1486 
*9=1487 *9-1488 *9-1489 *9-1490 #9-15(? *#12=1787 *12=1789 = #12=1791 Ss #12=1793 
#12=1797  -#12=1799-#12=1813) #121815 #12-1817 #121819 = *#12-1821)— *#12-1823 Ss *12-1825 
*12=1840  *12-1842 9-12-1844 3 *12-1846) )=—-*12-1848 = 12-1850) *12-1852.*#15-2114 = #13-2119 
*#13=2137 -*13=2142 = #13=2171- -®15=2490 = * 15-2491 = 15-2522 = * 16-264 16-2651  *16-2659 
*16-2670 17-2895 *19-3080 +*20-3330 *21-3478 22-3650 *24-390 #25-4148 27-44 
*28-4819 29-5187 +*30-5426 *31-5645 +*33-6014 34-6208 38-7213 38-7214 38-7227 
38-7228 38-7229 38-7231 38-7257 38-7294 38-7336 38-7357 38-7 38-7363 
38-7369 38-7384 38-7402 
$TMPS 001244 #7-1314 #9=1479 *9-1480 *#9-1481 *9-1482 *9-1483 #9-1484 #9-1485 #9-1486 
*9-1487 #9-1488 *9-1489 *9-1490 *#12=1787 9 *#12=1789— *12=1791 Ss *12-1793 - *12-1797 
#12=1799 = #12=1813) #121815) *12=1817 0 *12-1819) )—*®12-1821 0 *12-1823—*12-1825  * 12-1840 
#12=1842  #12=1844 9 *12-1846 = *12-1848 = #12-1850))— #121852) *13-2124 = * 13-2130) 3=— #13=2145 
13-2151 9 #13=2177, #132180) = # 13-2186) 3=— 15-2492 = * 16-2643 = *16-2652 = * 16-2672 = * 17-2897 
*19-3082 20-3332 = *21-3480 = *22-3652 24-3904 = 25-4150 §=—*27-4402 3=— *28-4821) *29-5 189 
#30-5428 +*31-5647 +*33-6010 38-7212 38-7227 38-7228 38-7230 38-7232 38-7258 
38-7295 38-7337 38-7357 38-7 38-7382 38-7401 
$TMP6 001246 #7-1314 *9-1479 *9=1480 *9=1481 #9=1482 *9=1483 *9=1484 *9=1485 *9-1486 
*9-1487 *9-1488 *9=1489 *9-1490 #12=1787 9 *12=1789 = #12=1791 Ss #12=1793 Ss * 12-1797" 
#12-1799 = #12=1813) #121815) #12=1817) 0 *#12-1819 = #12-1821 Ss *12-1823*12-1825 = * 12-1840 
12-1842  *12-18464 9 *12-1846 2 #12-1848 = 12-1850) = *12-1852)-*13=2126 = *13=2132 0 * 13-2147 
#13=2153 = #13=2182-#15=2493 )—-#16=2645 = * 16-2653) *16-2661 = * 16-2673 = * 17-2898 =. * 19 3083 
*20-3333 21-348 22-3654 3-24-3906 = *25-4152 = 27-4404 = * 28-4823 #29~5191 = # 30-5430 
*c-seee "33-6016 38-7212 38-7232 38-7258 38-7295 38-7337 38-7358 38-7364 


CREATED BY MACRO ON 28-MAR-81 AT 
CROSS REFERENCE 


VALUE 
001250 


" 


" 


REFERENCES 


87-1314 


33-6082 


#8-1324 


#33-6082 
* 33-6066 
33-6070 


33-6078 


33-6082 


33-6074 
33-6074 


433-6066 
76 


8-1324 


14:50 PAGE 36 
SEQUENCE Di 
CRE v01 
*13=2131 =*13=2146 
*16-2674 *17=2899 
#27-4431 = *27-4509 
38-72 38-7338 
8-1343 9-1343 
13-2242 14-2242 
17-2941 18-2941 
21-3532 22-3532 
25-4279 26-4279 
29-5276 30-5276 
33-6062 
33-6074 33-6074 
33-6074 33-6074 
33-6074 33-6074 
33-6082 33-6082 
33-6082 33-6082 
#33-6082 33-6082 
33-6082 #33-6082 
33-6082 33-6082 
33-6083 33-6083 
33-6085 
33-6068 33-6068 
33-6070 33-6099 
33-6082 33-6082 
33-6074 #33-6074 
33-6074 #33-6074 
33-6082 
33-6082 
33-6074 33-6080 
33-6066 
33-6076 #33-6076 


*13=2152 
* 19-3084 


#30-5276 


33-6082 


33-6083 


* 33-6068 


33-6080 


*13-2178 


30-5507 


#33-6082 


#33-6083 


33-6068 


*13-2181 
*21-3482 
* 30-5431 


10-1573 
16-2542 
20-3132 
24-3782 
28-4531 


31-5507 


33-6082 


33-6084 


33-6068 


* 13-2187 
*22=3672 
* 31-5650 


#10-1573 


. 431-5507 


33-6082 
33-6082 
#33-6082 


33-6084 


33-6068 


* 33-6011 


12-1904 
16-2695 
20-3377 
24-4036 
28-4898 
32-5766 


33-6082 


33-6082 
33-6084 


33-6068 


——— ee 


«F PRB CREATED BY MACRO ON 28-MAR=-81 AT 14:50 PAGE 37 
SEQUENCE 210 
“aAcRO CROSS REFERENCE CREF v01 
“A RO NAME REFERENCES 
AO CMAC #6-1202 
AMAC) #35-6609 
ASMAC 1 #6-1159 #9-1479 #9-1480 #9-1481 49-1482 #9-16483 49-1484 #9-1485 #9-1486 #9-1487 


#9-1488 #9-1489 #9-1490 #12=1787 12-1789. #12=1791 12-1793) #12=1797) 12-1799) 12-1813 
#12-1815 9 -#12-1817,-#12=1819 -#12-1821 12-1823 12-1825 #12-1840 412-1842 412-1844 412-1846 
#12-1848 #12-1850 412-1852 

ASMA( ¢ #6-1167 #9-1479 #9-1480 #9-1481 #9-1482 #9-1483 #9-1484 #9-1485 #9-1486 #9-1487 
#9-1488 #9-1489 #9-1490 #12-1789 #12-179) #12-1793 #12-1797 #12-1799 #12-1815 412-1817 
#12-1819 =. #12=1821 #121823) #12-1825 12-1842 12-1844 12-1846 #12-1848 412-1850 #12-1852 


A #35-6662 
4 #35-6691 
a #35-6697 
4 #35-6665 
4 #35-6671 
ASS #35-6676 
ASS #35-6681 #35-6701 
AS #35-6684 #35-6702 
AS? #35-6687 
_OMME N #6-1301 ; 
ORMA ( #35-6798  #35-6802 4435-6803 435-6804 435-6805 435-6806 435-6807 #35-6808 #35-6809 #35-6810 
#35-6811 #35-6812 
pmM1 #35-6336 35-6339 35-6341 35-6343 35-6346 35-6348 
DM #35-6352 35-6355 35-6357 
ENDCOM #6-1301 
ENDPAS #6-1050 #33-6066 
E RMAC #6-1082 #33-6070 
ESCAPE #6-1301 
5PM) #35-6303 35-6306 35-6308 35-6310 35-6312 35-6314 35-6316 35-6318 35-6320 35-6322 
35-6324 35-6326 35-6328'° 
GE TPR] #6-1301 33-6066 
GET SwR #6-1301 #8-1328 8-1328 
HMAC 1 #6-1172 
HMAC 2 #6-1182 
HMA % #6-1188 
1TEMAC #6-1152 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1520 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1520 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-13520 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-7 320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
&-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-132C 8-13520 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-13520 8-1320 8-1520 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 
8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1320 8-1 320 8-1320 


ee ES 


35-6535 


“«* PBB CREATED BY MACRO ON 28-MAR=81 AT 14:50 PAG 
SEQUENCE 
MA RU CROSS REFERENCE CRE 
MACRO NAME REFERENCES 
8-1320 8-1320 8-1320 8-1320 
ice #35-6752 55-6779 35-6782 
LcM2 #35-6757 35-6778 35-6787 
iim #35-6761 35-6784 35-6786 
Lim. #35-6768 435-6783 #35-6785 
coms #35-6771 #35-6780 
un #35-6626 
7 #35-6632 
; LOM #35-6636 
L DMS #35-6640 
L DMS #35-664 
DMS #35-6647 35-6774 35-6781 
LDM? #35-665 
DME #35-6655 
"MG #35-6659 
Dim #35-6613 
DIM #35-6617 
13 #35-6623 
OAD TP #6-1058 
PER #6-1275 99-1347 9-1379 9-1404 
10-1707 12-1733 13-1906 13-1939 
14-2256 14-2269 14-2282 14-2296 
15-2411 15-2428 16-2545 16-2570 
17-2754 17-2765 17-2777 17-2789 
18-2966 18-2977 18-2988 18-3001 
20-3191 20-3203 20-3214 20-3225 
21-3403 21-3414 22-3535 22-3551 
25-4039 25-4055 25-4071 25-4087 
28-4566 28-4582 28-4598 28-4614 
28-4728 28-4744 29-4901 29-4917 
29-5039 29-5059 29-5077 29-5095 
31-5510 31-5529 31-5548 31-5567 
33-5878 33-5891 33-5906 33-5920 
Mp1 #35-6420 35-6433 390 # 335-6438 
MDO2 #35-6470 35-6483. 35-6488 
MDI #35-6423 835-6426 39 #335 - 6431 
MDU2 #35-6473 35-6476 35-6481 
ME RROR #6-1178 
MEM, #35-6560 35-6572 35-4590 
meMS #35-6565 35-6574 35-6580 35-6584 
35-6815 
ME MG #35-6566 35-6576 435-6593 
MEM? #35-6569 #35-6578 #35-6582 #35-6595 
MFO! #35-6398 35-6408 35-6410 
MF O2 #35-6448 #35-6458  #35-6460 
MFT #35-6401 35-6404 35-6406 
MF 2 #35-6451 35-6454 $5-645 
sll 435-6360 35-6364 35-6366 35-6369 
my #35-6377 35-6381 35-6384 35-6386 
35-6468 35-64.” 35-648 
mODDM #35-6525 35-6533 = #35-6537 = # 35-6541 
MODDM #35-6528 35-6531 35-6539 


E 38 
211 
F 


v01 


33-5934 


35-6586 


#35-6601 


35-6372 
35-6388 


#35-6544 
35-6549 


33-5804 


35-6588 


35-6374 
35-6414 


#35-6547 
35-6552 


33-5818 


35-6597 


35-6392 
35-6416 


#35-6558 
35-6554 


30-5313 
33-5832 


35-6599 


35-6394 
35-6428 


35-6556 


33-5848 


35-6603 


35-6444 
35-6435 


35-6605 


35-6446 
35-6466 


Cet PRB 
MA’ 


| SG 


DODO VO DI DAVDUVDVDV 
= Cc ort 
Zve 
oo ra 
1m - Db 
4“ 


Beeeeeeeys 


- 
NON wl 


#35-6493 55-6499 

#35-64 #35-6501 

#8-1333 99-1343 

#16-2687 17-2695 

#23-3772 24-3782 

#29-5267 30-5276 

#6-1301 

#6-1072 8-1328 

#6-1288 #6-1301 

#20-3377 3921-3532 

#6-1068 

#35-6712 #35-6738 

#35-6718 35-6739 

435-6725 35-6744 

#6-1301 #33-6072 

#6-1301 33-6072 

#6-1301 

#6-1101 

#6-1233 

#6-1104 

#6-11725 

#6-1128 

#6-1131 

#6-1134 

#6-1137 

#6-1140 

#6-1143 

#6-1146 

#6-1107 

#6-1149 

#6-1110 

#6-1095 

#6-1098 

#6-1113 

#6-1116 

#6-1119 

#6-1122 

#6-1075 9-1557 
23-3768 24-4019 
34-6221 34-6232 

#35-6706 35-6730 

#6-1063 

#6-1301 

#33-6082 #33-6082 

#33-6083 #33-6084 

#6-1301 8-1327 

#6-1301 

#6-1301 

#6-1281 #6-1301 

#6-1272 

#6-1301 7-1314 
10-1573 10-7573 


CREATED BY MACRO ON 28-MAR-81 AT ma 


MACRO CROSS REFERENCE 
NAME yale #3 


#35-6505 


#30-5498 
#8-1343 

423-3782 
#35-6740 


33-6078 


12-1896 
25-4266 


35-6731 


#33-6082 


7-1314 
13-1904 


#35-6508 


31-5507 


#9-1573 
424-4036 


#35-6742 
35-6743 
#35-6746 
#33-6078 
33-6078 


13-2230 
27-4518 


35-6739 


#33-6082 
~~ 


7=-1314 
13-1904 


PAG 


E 39 
QUENCE 212 
CREF V 


01 

#35-6511 
#12-1898 
#19=3124 


#25-4270 
#32-5724 


#12-1904 
#25-4279 


#35-6747 
#33-6087 
33-6078 


15-2530 
28-4886 


35-6733 


#33-6082 


8-1323 
14-242 


435-6513 
13-1904 


33-5766 
#13-2242 
#27-4531 


#33-6087 
33-6087 


16-2684 
29-5263 


#33-6082 


8-1324 
14-2242 


435-6515 


#13-2234 
#20-3369 
427-4523 


#15=2542 
#28-4898 


33-6087 


17-2931 
30-5494 


#33-6082 


8=1324 
16-2542 


435-6517 
14-2242 


21-3377 
28-4531 


#16=2695 
#29-5276 


19-3121 
32-5722 


#33-6082 


8-1325 
16-2542 


#15=2534 
#21=3522 
428-4890 


#17=-2941 
#30-5507 


20-3366 
33-6058 


#33-6082 


99-1343 
17=2695 


16-2542 
22-3532 
29-4898 


#19=3132 
#32-5766 


21-3519 
34-6210 


#33-6082 


9-1343 
17=2695 


NAME 


CREATED BY 


ROSS REFERENCE 
REFERENCES 


#6-1288 


33-6080 
34-6240 


#8-1327 
. 33-6062 
#33-6085 
#8-1328 


#33-6066 


#7-1314 
#7-1314 
#7-1314 


#6-1301 
#21-3532 


#8-1327 
#6-1301 


#33-6082 
#6-1290 


MACRO ON 28-MAR=81 AT 14:5 


20-3132 


34-6246 
#8=1327 


433-6066 


33-6066 
#7-1314 
#7-1314 


#7-1314 
#7-1314 


48-1343 
#23-3782 
#33-6082 


6-1301 
6-1301 
6-130] 


77-1314 


#33-6074 


0 PAGE 40 
SEQUENCE 213 
CREF v01 

20-3132 21-3377 21-3377 22-3532 
26-4279 28-4531 28-4531 29-4898 
33-5766 33-6066 33-6068 33-6070 
33-4080 33-6082 33-6087 33-6087 
#7-1314 #7-1314 #7-1314 #7-1314 
#7-1314 #7-1314 #7-1314 #7-1314 
47-1314 #7-1314 47-1314 47-1314 
#7-1314 47-1314 #7-1314 #7-1314 
49-1573 #12-1904 13-2242 = #15-2542 
424-4036 25-4279 427-4531 428-4898 
#33-6082 #33-6082 4433-6082 433-6082 
6-1301 6-1301 6-1301 6-1301 
6-1301 6-1301 6-1301 6-1301 
6-1301 6-1301 


22-3532 


33-6091 


#16-2695 
#29-5276 
#33-6082 


6-1301 
6-1301 


24-3782 
30-5276 
33-6074 
34-6198 


47-1314 
47-1314 


#7-1314 
47-1314 


#17-2941 
#30-5507 
#33-6082 


6-1301 
6-1301 


24-3782 
30-5276 
33-6076 
34-6215 


#7-1314 
#7-1314 


47-1314 
47-1314 


419-3132 
#32-5766 
#33-6082 


6-1301 
6-1301 


—_ - > + 


“REATED BY MACRO ON 28=MAR=81 AT 14: 


ROSS REFERENCE 
“ REFERENCES 
#6-1 288 #356076 


50 PAGE 41 
SEQUENCE 214 
CREF 


v01 


